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address by current 
Increment 



Relocation indicator (LD002+S) 



decrement 



LD046 



Turn off relocation 
indicator 



Wd. Ct. 



Get Next instruction' 



Replace this instru- 
ction address with 

relocated address 



Replace this instru- 
ction decrement: 

with relocated de- 
crement 



/LDOOl \ 




02.15 



02.17 



02.15 



1.02.17 



LD055 




Bring out 6 relocat- 

e load address spec 
ified In 9 row L of 

this Card 



I 



Prepare "STO" in- 
struction adr. By 
incrementing new 
load adr. By word 
count 



Transmit Irom 
read buffer to load 
area 




Get next record 



LD0S0 



f 



8 Row L into ace. 
8 Row R into 

MQ 



Logical left 
Shift 1 



T 



I 



Save ace. & MQ 
residue 



Return (TRA 1, 2) 



1.02.18 



Place name of 
missing program in 
message 

(xxxxxx) 



LD002+15 




LD001 

9-Q 
Continue 
without programs 



Try to read 
card reader 

again 



1.03.D1 



Read routine for 
loader 



LD100 




Save index registers 
1, 2 & 4 (LD101, 101+1, 
101+2) 



I 



Extract location of 
unit control block 
assigned to system 
library (SYSUB) 



Place address of 
(elect routine(LD105) 
into word 2 decre- 
ment of the unit 
control block 



(ACTVX 



i 



JLiiiif. M nnlte 



Intitiate I/O oper. 
on SYSUB 



NOTEt Select routines on page 1. 04. 01 



LD101 



i 



Restore index regi- 
sters 1, 2&4 



] 



Return to caller 
via 
1,4 



1.04.01 



Select + 6- rou- 
tines for loader 



[ LD105 j 



LD10S 



i 



Save Index register 
4 (LD106) 




NOTEt Plus = Initiate I/O operation 
Minus = Wrap up I/O operation 



Cell LD002+15 



Place location of 
I/O command into 
reset & load channel 
instruction 



Place location of 
1st I/O command 
into reset & load 
channel instruction 



I 



Place physical 
unit address into 
read select instruc 

Hon (RDS) 



RDS 



I 



READ 



I 



) 



Set delay switch 
(LD135) 



LD106 



1 



Restore index regi- 
ster 

4 



-^ Return to caller 
via 
1,4 



LD110 




Sense indicator set by basic monitor 
LDU1 



Restore index reg- 
ister 4 

(LD106) 



Return 
to caller 
via 
2,4 



. Sense indicator set by basic monitor 
S LDU2 



Restore index 
register 4 

(LD106) 



Return 
to caller 

"♦ via 

3.4 



Sense indicator set by basic monitor 



Set end of file 
switch 



(LD114) 



Reset unit control 
block word 2 to 
zero 



I 



Reset delay switch 
(LD135) 



-lo pro: 

r1 c , e a , ta P e ,n a cce I 
table format a:s inpu 
to tlie IBSYS editor 

f °r insertion on. 
IBSYS system tape 




Sort Edit 
entered 
--Push start 
to continue 



Sense Switch 2 



1.05.01 

Due to the fiict that the Basic Monitor (BSYS) editor will not 
accept relocatable input to form a system tape, some means 
of preparing the sort package for input to the IBSYS editor 
must be provided. This is the function of the Sort Editor. 

The procedure follows: 

!• Secure input to Sort Editor 

a. Update particular sort programs that are to be changed. 

b. Assemble entire sort package using IBSF/VP 

2. Using sort editor prepare a tape Containing the entire sort 

package that will be acceptable to the Basic Monitor Editor. 

a. In the case of an update, "Sort" is run with sense 
switch 2 down only (calls Sort Editor). The updated 
programs will be merged with existing system replacing 
those particular programs with updated version. Out- 
put is on Utility Tape 2 (SYSUT2) 

b. In the case of a re- assembly of the entire package, Soi 
is run with sense switches 2 (calls Sort Editor) and 3 
(indicating that input is entire sort package) down. Th 
package will be arranged in the desired format on outpi 
utility tape 2 (SYSUT2). 

3. Using Basic Monitor Editor, the Sort System is Inserted on the 
IBSYS system tape as a separate file following the Sort Monitor. 
NOTE: The Sort Monitor is an absolute assembly and therefore 
Can be placed on IBSYS system tape individually by Basic 
Monitor Editor. 



1.01.01 



Extract location o: 
mit.cont. block assq 
with assembly puncl 
output tane(SYSPPl) 
to Be used is ini 
to sort edit 



nput' 




Cell SYSPP1 



PRoirr : 



No I-O unit 
attache: d as 

SYSPP1 



Cannot con- 
tinue 



Print Message 




m 

j Save location of 
punch tape unit 
control block 

(PPUCB) 



ihysic 



NOTE: System punch tape unit (SYSPP1) is used as input 

since it is the output tape used by an IBSFAP assembly. 



Extract nhysical, I70 
address irom unit 
control block wd. I, 
convert to binary se- 
lect address & us.j t< i 
specialize RDS in- 
struction (RDSPP) 




1.05.02 



1.0S.02 



NDSLX 




Rewind Punch tape 
(SYSPP1) 




Cell SYSUT2 




Cannot 
Continue 



TOPX 




Dead Stop 



UT1WT 



Save location °f 
utility tape unit 
control block 

(FPUGB) 



4. 

t. piiys 



EIFIsSffl 



c5T 

rom uni 
control block wd. P., 
convert to, binary 
select address £ use 

instrucfion Z fWR£ UT; 



(ndsix f 



Rewind utility 
Tape 

(SYSUT2) 




Sense switch 3 



Set library end of 
file switch 



(LBEOF) 



Make library 
name input cell 
•11 ones 

_- ("NAM) 




1.05.03 



INTUB 




Extract location of 
unit control block 
assoc. with library 
tape (SYSLIB) 



No I-O unit 
attached a« 

SYSUB 



Cell (SYSUB) 



Ii 



y 



(PROUT * 



y 



(STOPX 



Cannot 
Continue 



an I/O unit 
eitoc. with library 
tape specific n, 
tion 



NO 



Print Menage 



Dead Stop 



PINT 



Ye« 



Save location of li- 
brary tap* unit 
control block 

(LBUCB) 



I 



Extract physical I/O 

eddreu from unit 
control block wd. 3, 
bin 



SKIPF 

oca 



\ 



Skip over end of 

file mark on library 
tape alter sort 
monitor 



I 



of file twitch 



(IBEOF) 



nCUB 



7W7W 



Read first program 
from library tape 




Cell PPEOF 



-KLQ1 



Read next progrpm 
from punch tape 




1.05.04 




Test 

cell PPEOF 

Did ^V 

'punch tape en- ~s. 
1 of fii«T> 




COMP 




Compare current 
punch n 8 me(PPNAlvf ) 
to current library 
nam* (LBNAM) 




Remit of ->^ ... „ . 

V. Library " Punch 
comparison <)> ^ ^ "" ■■ ■■■ 




Library low 



LBLOW 
WRUT2 



1.12.01 



I 



Write out program 
from library buffer 



RJ2LJB 



LS&M. 



I 



RDUB t 



1.68.01 



Reed next pro- 
gram from library 
tape 



Read next program 
from library tape 



PPLOW 

WRUT2 l ' 



1.12.01 



Write out program 
from punch buffer 
(program in desired 

format) 




Re ad punch 
tape 



1.05.03 



[ NDSLX 



1 



Write End of file 
on utility tape 
(SYSUT2) 



fonST.X | 



Rewind utility tape 
(SYSUT2) 




Sense twitch 3 



Rewind library 
tape (SYSLIB) 



MISNM 



I 



1.15.01 



Check for missing 
programs 



\ 



Return to basic monitor 
(IBSYS) 



Skip over end of 
file mprk 



1.06.01 



f SKIPF j 



1 



Save index register 
4 

(SIR4) 



Extract location of 
unit control block 
assigned to system 
library 

(SYSLBI) 



\ 



Plpce address of 
select routine (SE1LS) 

into word 2 decre 
ment of the unit 
control block 



AcTVX 



I 



n " {p M "iir?r 



Initiate I/O skip 

operation on libra- 
ry tape (SYSLBI) 



SIR4 



I 



NOTEj SYSUB is made synonymous to either SYSLB1 or another designation 
in sort monitor. The sort monitor is always on SYSLBlj therefore, If 
it is specified as SYSUB the end of file mark after sort monitor must 
be skipped. If SYSUB is given a "designation" other than SYSLB1 this 
routine will have no effect. 

NOTEi Select routines on page L 07. 01 



Restore index regi- 
ster 4 



1 



Return to Caller 
via 
1,4 



Select routine 
for skipping 
file mprk 



1.07.01 



SELS 




NOTE: Plus = Initiate I/O operation 
Minus = Wr;ip up I/O operation 



fclxtract pWi <S ?1 
I/O unit address 
from unit control 
block wd. I G con- 
vert it to binary 
select type 



Specialize read 
select instruction 
(SSEL) with binary 
tape address 




skip command into 
RCH instruction 



SSEL 



I 



Read skip (shouldV 



T 



Return to caller 
via 
1.4 



NOTE: SKIP commands 
IOCTN 0,,-l if 
EOF not encountered 
command word trap will 
occur due to word count 



Sense indicator set by basic monitor 

Return to caller 

via 
2,4 

, No Sense indicator set by basic monitor 
Return to caller 



Sense indicator set by basic monitor 




Ro?d routine for 


system llbrpiy 


tppe 


(SYSLIB) 



1. 08. 01 



RDDB 



(RDLIB ] 

i 



Spve index register 
4 (SIR4) 



~*.j 



I 



Extract location of 
unit control block 
assigned to system 
library 

(SYSLIB) 



1 



NOTEi Select routines on ppge 1. 09. 01 



Place pddress of 
•elect routine(SEIX 
Into word 2 decre 
ment of the unit 
control block 



ACTVX 



i 



i 



psic Monitor 



Initiate I/O oper- 
ation on SYSUB 



Read Complete , "%«^ 




1.09.01 



Select + G- routirK* 
for library tape 
(SYSUB) 




NOTE: Plu« = Initiate I/O operation 
Minus » Wrap up I/O operation 



Place location of 

I/O commanii inta 

RCH instruction 



RDSLB 



I 



READ 



Return tocgller 

Via 

1,4 



o 

SE LLM Jf 



Save index registers 
1 G 4 (RSIR4 & RSIR 




use Indicator set by basic monitor 

>2V 



Yes^ Return to caller 

vln 



2,4 
ense indicator set by basic monitor 

Yet 



>+ 



Return to caller 

via 
3,4 

Sense indicator set by basic monitor 

ML 



Set library unit 
Yes fcOF switch 



r^> 



(LBEOF) 



Place all ones in 
library program com 
pare name c*ll 

ftBNAM) 



Determine # of wds 
read & store in wd. 
count portion of out- 
put command used 
to write utility tap«i 

'LBBUn 

v 



I 



Reset unit control 
block word 2 to zero 



Extract name of 
program 



PCONV } 



Convert program 
name to nredetermii e 
numerical position 
on system tape 



Program name founa 



Program narr 
in list (1,4) 



C— M Program not found 
-£- (2,4) 



Return to call< 
via 
1.4 



Return to 
caller via 
1,4 



Reset unit control 
block wd. 2 to 



RSIR4 
RSIR1 



P^ace numerical 
ilvalent o* 

m name i 
mpare nai 

(LBNAM) 



equivalent of pro- 
gram name in > 
compare name cell 



Restore 
IRl & IR4 



1.10. 01 



Read routine : : or 
punch tppe unit 

(SYSPP1) 



[ RDPP1 ] 



RDPP1 1 



Sbvb Index regi- 
ster! 4 (SIR4) 




EOF 2 



Set punch unit EOF 
switch (PPF.OF) 



RExtrpctTocption 
of unit control block 
of signed to punch 
tope (SYSPP1) 



L 



1 



Piece address cf 
select routine^E!!') 
Into wd. 2 decre- 
ment of the unit 
control block 



ACTVX \ 



Basic Monitor 



Initiate I/O oper- 
ation on 
SYSPP1 



"> 



Place all ones in 
library program 
compare name eel I 

(PPNAM) 



T 



Return to caller 
via 

1,4 



NOTE« S^lect routines on p P ga J. 11. 05 




J. 11. 01 



Select + G - routine : 
for punch tepe 

(SYS?P1) 




NOTEt Plui - Initiate I/O operation 
Minus " Wmp up I/O operation 



Place location of 
I/O command into 
RCH instruction 



RDSPP 



I 



READ 



Return to culler 

Vii 

1,4 



SELPM 



'6 
± 



Save index registers 
l J 2G4(RPIR4*SVmi 
SVIR2) 



Return to caller 



^Redundancy en- ^ "^ 

countered ^S yi ' 

3,4 
Sense indicator set bv basic monitor 




Sense indicator set by basic monitor 
Yes 



V>r"-* 



Return to caller 

via 
2,4 



Sense Indicator set by basic monitor 



EOF1S 



Yes 



>^ 



Set intermediate 
EOF switch 

(PIEOF) 



Reset unit cont. 
block word 2 to 
zero 




1. 11. 02 



1.11.02 




G 



First won! sign 



Cell PROCC 



/. 1st word bit position 1 
(relocatable I nd. ) 




_ cell PROCC 
S BKSPC 



Has a pro* 
gram card been en-^S. 



No 

Set program card 
encountered switch 



Reset unit cont. 
block to zero 



(kill I/O unit 
activity) 



Reset program 
encountered switch 



(PROCC) 



(NDSUC 



Backspace over 
program card 



(PROGC) 



j """^ 

v**v Place coun 

f B 1 words in out 

\__y (BUFCT) int. 



count of 

output buffe 

into output 

command (PPLGB+1 



Extract program 
name and place in 

header label 

(PBUFN+1) 



PCONV f 

r 



T 



Form total wd. 
count, including 
X'fer cardS save 
(PBUFN) 



■ 14.U1 



t projzn 
name to predeter- 
mined numerical 
position on system 



I Progra 
J. 



Reset buffer count 
to xero (BUFCTJ 



1 Program name not found (2,4) 



Program name found (1, 4) 



Place converted 
name in punch 
compare name cell. 

(PPNAM) 



Move 



L 



Set Invalid program 
switch 

(PROGC=0) 



Move next word 
of this card to 
punch (output) 

buffer 



Placi 



converted 

namU in punch 

con pare name 

eel 

, (PPNAM) 




Update Buffer count: 
(count of wds. 
placed in output 
buffer) 

(BUFCT) 



SVIRI^ 
SVIR2 
RPIR4 



Restore index regi- 
sters 1, 2&4 



Return to 
caller via 
1,4 



1.12.01 



Write routine for 
output utility tpj>e 

(SYSUT2) 



I WRUTa 



WRUT2 



1 



Save index register 
4 (SIR4) 



Extract locatidr&T 
unit control blcxik 
•Migned to utility 
tape (SYSUT2) 



Place address of 
select routine 
SELUT) into w'd. 2 
decrement of the 
unit cont. block 



^ACTVX 



h sic Monitor 



Initiate I/O oper- 
ation on 

SYSUT2 



NOTEi Select routines on page 1. 13. 01 




Restore index regi- 
ster 4 (SIR4) 



I 



Return to caller 
via 
2,4 



1.13.01 



Select -(- G- routines 
for utility trpe 

(SYSUT2) 




NOTEi Plu» •» Inltipte I/O operetlon 
Minus - Wr 8 p up I/O operetlon 




Ploce location ot 

I/O commend into 

RCH instruction 



WRSUT 



I 



WRITE 



Return to caller 

vie 
1,4 




Sense Indicator set by basic monitor 



Yes 



.Return to c filer 

Vis>' 

3,4 



Reset unit cont. 
block wd. 2 to 
(kill activity on 
unit) 



1. 14.01 



Convert program 
name to predeter- 
mined numerical 
position on system 
tape 



( PCONv\ 



PCONV 



V 



Compare n;me of 
progtam re 9 d to 
next name In npme 
table starting with 
first 



NOTE: Npme table contains nptnes of oil programs of sort systet 
tape pnd their numericpl position of the tape. 



jj Length <of name table 




NOTE i 



Change content of 
cell of npme tpble 
assoc. with desired 
npme to a known 
constant 



Program not found. 
Return to caller 

via 

2,4 



This will avoid duplication on output tape, by insuring pn 
unequal comparison on next pass. In addition at completion 
of edit operation all cells of name table can be tested for the 
presence of the constant. An abscence of this constant will 
indicate a missing program on output tape. 



Extract numerical 
equivalence 
(position) of de- 
sired program 



Return to culler 

via 
1,4 



US. 01 



Routine to deter- 
mine if ?11 sort 
subprograms pre 
present on output 
...tape. 



Q 

MISNM \ 



Save Index register 
4 



<TSIR*j 



'fi'feWS&al or punch t e pe. SeeP„ g e 1.14. 01 (EQUAL, 

of known con- 



stant 




(PROUT 



Place program nam< 
pssoc. with thli 
cell in message 

(xxxxxx) 




Subprogram 
xxxxxx 
missing from 
library tape 



Restore index 
register 4 



T 



Return to caller 

Vl8 

1,4 




EDIT FHAg - OVERALL LOGIC DIAGRAM 

A boy ** *w" «***te to tW tort waiter 
B — Ctntfitionc 

1. Control card* assumed - to be on txpe 

2. No error or end of 61* procedure! shown. 

3. Print and conversion routkoet not shown 

4. Initial start assumed - restart not shows 



z.cs 


.0! 


J v., rao-cc o; 


| ^ 


opera- 


I M 





U.cm:iSI 



^janotbef i 'C oper 

tat; on is waiting 

jr. be ;r;ir,*«^ 
fr:. this channel 




NOTE: None would be 
waiting under these 
conditions 



j Prepare to anii-j 
*h*ze define re 

1 : l 



Definer analy- 
sit rourine 




CALCU 



2.70.01 



Calculations 
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CATDT 
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CVWKJ 
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] "--.'WW 
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INFCH2. S2.Q] 
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! 


MERCH; 5t p; 
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j r.Trrnrr 


- 
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_ 
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r.Lw R 


2. 13. 01 
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REELS 
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OTiMS 
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F.LKF1 


2.33. CI 
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- 
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r_ 


D;CT 




- 




DiCFl 


2.40.011 
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. 


- 


FJTAIN 


. 




. 


P.F.TTS 


2. 41. CI 
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- 
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- 


Culrl 


Z -42 01 i - 
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IN?fl 
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- 
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elofi 


2.44.01] 
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PADFI 


2.4S.01J 
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' 


' 


- 


SERFI 


2.46.01 
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- 


- 


• 



Statement 


De finer 


xxxx 
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Z2ZZ 


ter 




FILE (cont. 1 
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, 


PROMO 
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delete 


- 


"ITTH 


1 2.1S.U - 


- 


- 1 '- ' 


OtLWH ■> 10 oi 






TYK 


- 


- 


- 


TVPDT 


2.SS.01: - 


1 






FIELD 


- 


. 


_ 


FIEDE 


5.59.61 - 


: 






IPKNTlFIf.ATlf) 


< - 


_ 


_ 


tnFnr. 


2.60.01 - 




. 


SbKf 




SOED 1 


■ s.». 


JI - 








. 




ORDER 


. 


. 


. 


ORDSO 
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1 





©• 



Edit i phase main 
program 



2. 01. 01 



EP001 




Save pointer for 
return to sort 
monitor 
(EP002) 



START 



I 



Zero table are?* 
end reset remarks 
(ad. (REMIN)G 
cardct. sw.(CRDCT) 
RET- 



READ 



5 



2. 02. 01 



Read o control 
card 




Cell Delay 



(PROUT 



1 



Print Error Message 



(PAUSE 



2. 



No, end, card found before 
end of file. Option procedure 
1. To delete this Job- press 
start. Or 

To interrupt the system- - 
set SSI- -Press start- -Put 
SSI up and then set down 
again. Attach reader as 

SYSINl-Execute sort and 
place new sort control 
cards in reader, or 

To continue (ignore the 
condition)- -Set SS2-- 
press start. End card will 
be assumed at this point. 



3. 



Print and Stop 
(Press Start) 



Operator 
action pause 
Action com- 
pleted 



Yes 



Action when system 

' interrupted because 

of program error 



CTUDT 
Update count of 
cards read 
(CRDCT) 




Cell 
^RECORT 

Card 



(zjTTOff 



Card Columns 1-6 ($IBSYS) 
X" EP004 

return^ c Ye8 (PROUT 




No SS2 

f — — . ■>*. Assume "end" 

Yes /Edit Y*" Cptd 
Phase 
3-G 

EP0O7 



2.01.03 



RBOl 



Convert card image 
to BCD 



Return to 
rsort monitor 
via 

10,4 
(Job deleted) 



NORMAL FETURN 




EP005 



Set continuation 
card switch 

(RCONT) 



Print routine 
Print IBSYS 
card 



Restore index regi- 
ster 4 to pointer 

(EP002) 



2.01.06 



Return to sort monitor 
via 
4,4 (Sorting complete) 



\ 




$IBSYS 

(Remainder 

of card) 



2.01.02 



2.01.02 



CARD COLUMN 6 (X) 



Reset continuation 
switch 




(RCONT) 

ZZT" 



(PROUT 



Yea 



Print routine - 
Space printer 

ZZZ3 — 



REMVX 

Remove contimia- 
tion code (X) in 
column 6 and in- 
sert blank 




(PROUT 



Print routine 



Card 
=S;tatemen 




Phase 
5-F 



2. 01. OS 



Clear cell in whi ch 
word of first 3 non- 
blank char. Is to 
be built 

(Word) 



RAl 



J± 



Bring out next wd. 
from card starting 
at Column 7 



RA3 



Scan next chai^ 
acter 




^~-^A2 




2.01.03 



Position pnd or Sis 

character into word 

of first 3 non blank 

ctyprsctera ( Word) 



RESTAR 




Thif ii not p lort control cprd option procedure 

1. To delete this job- -press start. 

or. 

2. To interrupt the system- -Set SS1-- press 

itprt--Put SSI up and then set down pgpin. 
Att?ch repder os SYSIN1-E>:ecute sort pnd plpce 
new sort control Cprds in cprd repder. 
or 
31. To continue(ignore the condition)-- set SS2 press 
stprt. The cprd will be ignored. 



Restore index 
register 4 
(EP002) 



2.01.04 



RB 10 




Save statement 
reference number 
(STIND) 




YES 



ERRMX 




Not charted 



Print error message 
and set remarks 
Indicator (REMEN) 



Too many xxxxxx statements 
Option procedure 

1. To delete this job- -press 
start. 

OR 

2. To interrupt the system- 
Set $;S1- -Press start- -Put 

SSI up and then down again. 
Attach reader as SYSINl-Ex- 
ecute sort and place new sort 
control cards in reader. 
OR 
To oontinue(Ignore the 
condition)- -Set SS2- -Press 

start. The Card will be 
ignore^ - . 



(PAUSE 



xxxxxx = Statement name 



Print and stop 
(Press start) 



(Operator 
action pause 
action com- 
pleted 



INRPT 



Locate cell within 
table of card loca- 
tions for this 

statement 



RC 1-RC2-RC3 



Action when system 

nterrupted because 
of program error 



Increase location 
table cell, cards 
per statement count 
(decrement) by 3. 
and specialize 
address to location 
:>f first word of this 
zard within convert 
;d card storage 
area 




Read 

^-"next 

Card 



EP007 



Eletet remarks 

indicator 

REMIN) 



j£l 



Restore index 
register 4 

(EP002) 



T 



Increment card 
count cell by 1 
(CARCT) 



Jl 



Return to sort monitor 
via 
10,4 
(Job Deleted) 



Increment state:- 
ment count cell 
by 1 (STACT) 




2. 01. OS 



2.01.05 



o- 



MOVE 




Move next word of 
card from temp 
buffer to converted 
card ^SPi^fiL——^— 




NOTE: FIRST WORD OF CARD 
NOT MOVED (Col. 1-6) 



Save updated 
count of word* 
moved (WDCT) 




Increase card 
count by 1 
(CARCT) 



READ NEXT CONTROL CARD 



CELL REMIN 



YES 




Edit 

[ Phase 

1-D 



2.01.01 



EP002 



£ 



Restore Index 
register 4 
(EP002) 



I 



RETURN TO SORT MONITOR 
VIA 
3, 4 (On to Ph 3 se 1) 



EP006 y 



Restore index regi- 
ster 4 (EP002) 



J 



Return to Sort Monitor 

vis 
6, 4 (Merge only - Phpses 162 not reqd) 



READ NEXT CONTROL CARD 



Locate cell within 
table of card loca- 
tions for associated 
statement 



I 



Increase location 
table cell, cards 
per statement 
;ount (decrement) 
jy 1 




^ 



MOVE WORDS OF CARD TO CONVERTED 
CARD STORAGE 



2. 01. OS 



2.01.06 



(PROUT 




Error found in conversion of 
control card from card image 
to BCD. Possible mispunched 
card. Option procedure 
1. To delete this job- -press 
start. 

OR 
2. To interrupt the system- 
Set SSI— press start— Put 
SSI up and then set down 
again, Attach reader as 
SYStNl-Execute sort & 
place new sort control 
cards in reader. 



OR 
To continue 
condition 
Press sta 
be acce 



•rue (ignore the 
.rt." The card wil 



crAU.sE 



Print and stop 
(Press start) 



1WRPT 



2-71- 01 



Action when system 
interrupted because 
of program error 





No 



Restore index regi- 
ster 4 (EP002) 



Return to sort mo:aitor 
via 
10,4 
(Job deleted) 



2.02.01 



Read 

subroutine 



^fcead\ 

READ |T 



Save Index 
registers (RDAX 1, 
RDAX 2, RDAX4) 




CELLFTTRU 



Bring out address 
of control card 
Input unit 

mcBW n 




UCBW J DECREMENT 



Set tape Input 

■witch 

(RCORT) 



Brln([ out tape 
InpuiE command 



Bring out card 
Input command 



Save command 
(COMM) 



I 



Set first card read 

twitch 

(FTTRU) 




2.02.02 



2. 02. 02 



PRSEL 




Place location of 
select routine into 
unit control block 

(UCBW 2) 



(actv JL 



IOCS activate 

routine -initiate 
physical input 
operation 



RDAX 



2 



Restore index 
register* (RDAX 1 
RDAX 2, 

RDAX 4 



t 



RETURN TO EDIT PHASE 
VIA 
1. 4 



2.03.01 



Select 
Routined 
+ Intta.te I/O 
operation _ ._ 
-complete I/O 
operanon^^^^^ 



CRSEL 




Save index regiiiter 
4 



[CRAX 4) 



I 



Save location of. 
ixAt control block 
NDCLS) 



peciallze read 
•elect Instruction 
address 



I 



Specialize JVCH 
instruction address 
to location of 

CBMttftB 



RDS 



1 



Aead Mlcct 

CI 



) 



Set delay switch 
(Delay) 



CRAX 4i 



Restore index 
register 4 
(CRAX 4) 



RETURN TO ACTV 
VIA 
1, 4 



ACC. SIGN 



3.03.02 




Clear select routim 
address from 
UCBW 2 and reset 
delay switch 
(Delay) 



CRAX 4 



Restore index 
register 4 
(CRAX 4) 



RETURN TO 
XTRAP 
VIA 
1, 4 (NORMAL 



2.03.02 




(NOISE RECORD) 



CRNOS 



Restore Index 
register 4 
(CRAX 4) 



RETURN TO XTRAP 
VIA 
2, 4 (NOI.'SE RECORD - IGNORE IT) 




(END OF nil.) 



CREOF 



1 



Set end of file 

•witch 

(EOFSW) 




2.03.01 




2.03.03 



2.03 



Relet density chang ; 
twitch 

(CRDSW) 



(Ignore the record) 



2.03.03 



NDCLS 
NDSEL 




Set deadly 



(PROUT 



I 



Print routine 



I 



+ "• 



changed on 
■yain tape 



Set density changec 

•witch 

(CRDSW) 



I 



Rertoce Index 
register 4 
(CRAX 4) 



RETURN TO XTRAP 
■>• VIA 

3, 4 (REDUNDANCY RECOVERY - TRY AGAIN) 



Card editing of 
option card 



2. 04. 01 




Locate first saved 
word of card 
containing option 
statement 



Determine number 
of words In con- 
verted card storage 
associated with 
this statement 



CELL OPTCT 



NO 



(Col. 7 - 12 of card) 



SK001 



2. 72. PI 



I 



Scan option 
statement 



DEFER 



8. 2?, 91 



I 



DEFINER 
analysis 




OPTION CARD WRAP UP 



2.05.01 



2. OS. 01 



Wrap up of 
option card 



OPWRP 




Compute location 
of high end of 
new relocated 
common area pet 
relcom deflner 



I 



Clear 5000 10 cells 
for common area 



Place number of 
cell* common re- 
located Into 
common 
(OPTPR) 



I 



NOTIi OPTPR -OPTION CARD PARAMETERS 



Place condition of 
each remaining 

«rd deflner 
i t ggmmoi 




5 lace Into the lajt 
xea location of 
common the loca- 
tion of it««lf - 1 

(REFPR) 



REFPR - REFERENCED PARAMETERS PARAMETER CELL 




OVERFLOW CARD EDIT 



2.06.01 



2.06.01 



Card edit of over- 
flow card 




LABEL CARD EDIT 



Locate first saved 
word of card 
containing over- 
flow statement 



2.08.01 
(Coll. 7- 12 of card) 



Determine number 
of words in con- 
verted card stor- 
age associated wifJ 
this statement 



SK001 



2. 72. o: 



f 



Scan overflow 
statement 



DEFER 



2. 23. 01 



Definer analysis 




OVERFLOW CARD WRAP UP 



2.07.01 



2.07.01 



Wrap up of over- 
flow card 



OVWRP 




Save Index 
register 1 
(OVWR 1) 



Extract number of 
blocks and place 
In common storagt 
(OVEPR) 



&m. 



I 



OVEPR - OVERFLOW CARD PARAMETER 



Reitore Index 
register 1 
(OVWR 1) 



flAEDT J 

2.08.01 



LABEL CARD EDIT 



2. 08. 01 



Card edit of 
label card 



CELL LABCT 




Locate first nvid 
word of card 
containing label 
statement 



I 



12 of card) 



Determine number 
of words in con- 
verted card storage 
associated with 
this statement 



SK001 



2J1 



Scan label 
statement 



E 



3EFER X 
T.23.QJ Tl " 



Deflner analysis 



2.09.01 



LABEL CARD 
WRAP UP 



2.09.01 



Wrap up of 
label card 



/labwr\ 



LABWR 



Sompute last loca- 
on. of common 
una lor label 
construction 6 save 
In common (LABPR) 



I 



LABPR - LABEL CARD PARAMETERS 



Compute last loca- 
tion of common 
ised lor label 
reading 6 save In 
common (LABPR 
-1) 



&. 



Compute last "lo- 
cation of Internal 
4 word label area -K 
save in common 

(LABPR-4) 



1 



me 

spec 



date "Re fere nee c 
rameters Para= 



cell to 
It 



ast used ce 1 



C area by (^ P 1l) abel 



LBMOV 



Place m 
internal 
4 word 



iUSI 



label 



r" 

n 
area 




Label Skeleton: 
Logical File xxxx 
Pass xxxx 



Channel card edit 



2. 10. 01 



Card edit of 
channel card 




CELL CHACT 



( PROUT ^ 



Print routine - 
print error message 



Channel - 
required, 
channel 
statement 
not given 



Set error switch 



(DEERR) 



J FUDT y 



ON TO FILE 
CARD EDIT 



2.12.01 



Locate first saved 
word of card 
containing channel 
statement 



(Col. 7 - 12 of card) 



Determine number 
of words in convert- 
ed card storage 
associated with 
this statement 



rSKflgl. *k. 



2.72.01. 



Scan channel 
statement 




ex 



ON TO CHANNEL CARD WRAP UP 



2.11.01 



2.11.01 



Wrap up of 
channel card 



( chawr\ 



chaw: 




CELL CSINP 



NO 



( PROUT 



Channel - 
no input 
channel 
given 



Print routine - 
print error message 



4 



Set error switch 
(DEERR) 



CELL CSMER 



' PROUT 



NO 



Print routine - 
print error message 



\ 



Set error switch 
(DEERR) 



J FIEDT \ 



ON TO FILE 
CARD EDIT 



"W 



erge 
e fire a, 
m- 

asel 



(outout) from 
feraal sort phase), 
in comtnorf, insert 

c c a m6^(cWR 



nr 



zst 



\ 



CHAPR=Channel Card 
Parameters 



Channel - 
no merge 
channel 
given 



2. 12. 01 



Cal. location ot 1st' 



channel table area 
other channel in 
common, insert a 
tag of 2 & save in 
common 



(CHAPR-3) 



I 



Update" referenced 
parameters para- 
meter to location 
of last cell used in 
common by tables 
(REFPR) 



txtract tape channe|l 
designation that is 
equivalent to the 
second merge chan- 
nel (other channel) 
0OXO00/OOYOY0 



x - CHANNEL LETTER (A-H) 
y= Channel Letter (J-Q) 



Store the extracted 
channel designator 
In all ten cells of 
second merge table 
area in common 




2.11.02 




2.11.02 



CHAWR\ 



CELL CSOUT 



CELL CHANO 



CELLS CHANO G CHAN M- 1 



put> 




common equal 
to location of 
second, merge 
channel table 



Set output channel 
equal to merge 
channel switch 

(CHAOM) 



. usee 
common by.c ' 
charmer table 
(REFPR) 



output table In 
common 



x=CHANNEL LETTER 



FIEDT 




ONTO 
IE CARD 
EDIT 



2712.01 



£HA]2. 



Calculate location 
of output channel 
table in common 
and save In commoi 
(OHAPR-1) Place a 

iMygf rement 



I 



RS 



Update referenced 
parameters para- 
meter to location 
of last cell used in 
common by output 
channel table 
fREFPR} 



I 



I Extract the channel 
designation that is 
equivalent to the 
output channel - 

i 00 YOYO 



Y*CHANNEL 
LETTER 



3r chain number to 
channel designatio: 
and store in output 
channel table cell 
in common 



Set J to Q output 
mode switch 
(SWIJQ)G Intersys- 




_ ON TO FILE 
'CARD EDIT 



2.12.01 



2.12.01 



Card edit of file 
cards 




CELLF1LCT 



/ 



•■ 



tPROUT y 



Flle- 

re quired file 

statements 

not given 



t> 



Print routine - 
print error menage 



Set enor twitch 
(DEERR) 



^ioedtA 



MODIFICATION 
^f CARD EDIT 



2.14.01 



o[ESj/filwr\ 

2.13.02 



Determine If an Input and output file statement had 
previously been (encountered. If to, on to modification 
card edit; If not, print error message and then on to 
modification card edit. 



Locate first saved 
word of card 
containing next 
file statement 



Reduce by 1 
count of file 
statements ahead 
to be analysed 

(FILCT) 



(Col.. 7-12 of card) 



Determine number 
of words in , 
converted card 

storage associated 
with this statement 



FILSC 
SKOOl j^ 



2.72.01 



Scan file statement 



Clear file image 

area 

(FAREA) 



DEFER 



FILE CARD WRAP UF 



Reset Input switch 
(FSINP) 6 output 
switch (FSOUT) 



to lero 




2.13.01 



Wrap up of file 
card 



2. 13. 01 



Cell FSIAB 



(FAREA+17) 

■it rnuiM fPneinJ ■ 




Store no- label 
code (2) in file 
block 



(FAREA+3) 
I 



Store check- 
point type codi 
ilnto file block 



No block size 



Print Message 




Set error 
switchX 
(DEERR) 



NEITHER 



(PROUT 



File-output 
or input not 
specified 



Print routine- 
print error message 



IS 



Set error switch 
(DEERR) 



2.12.01 




(PROUT 



Print routine- 
Print error message 



Tsav 
of high en 
output flic block ir 
common 

(F1LPR-1) 



1 




File - two 
output files 
given 



INPT 
SeFIBput tile 
switch In common 



(F11PR) 



X 



file statement 



FILPR^ile card parameters 



On to next 
^--file statement 



2.73701 
FlLPR*f ile card parameters 



JC 



FAREA 
/ +15 



Increment number 
of files to be 
merged or used as 
input (F1LCO) 



Update reference? 
parameters para- 
meter to addr, of, 
low i&& of this file 

(REFPR) 



FILM! 
FILMV 



I 



Forme save addr. 
of high end of thi* 
input file block in 
common (FILN, 2 
address) 



Move next locatiot 
of working file 
block area to 



common 




On to next file 
V statement 




!R2=Present input file count 



Update referenced 
parameters para- 
meter to addr. of 

A^bfockiR^PR, 



save loalcdl nlllM.- 
ber assigned to this 



ca] 
crement) 



J 



IR2=Present Input file count 



2.13.02 



ZfilwrN 




ON TO MODinCATION CARD EDIT 



2.14.01 



INPUT AND OUTPUT FILE DATA BLOCK LAYOUT 



2.13.03 



mm 


DEF1NER 


ASSOCIATED 
ROUTINE 


DESCRIPTION 


USED 










incut 


TtttBttt , 


FAREA+0 


Mode 


MODFI 


Mode Decimal * Zero 

Binary « Non-Zero 


X 


X 


FAREA+ 1 


Density 


DENFI 


Denslty High -Zero 

Low = Non-Zero 


X 


X 


FAREA + 2 


Padding 


PADF1 


Padding No paddlng m ) 

Low Padding « 1 
High Pudding « 2 


X 


X 


FAREA+ 3 


Label 


LABH 6 FILWI 


Label 

Standaifd w 
Non- Standard » 1 
No Label = 2 


X 


X 


FAREA +4 


Label 


LABn 


Label Density 

Low * Non-Zero 


X 


X 


FAREA + 5 


Blocking 


BLOFI 


Blocktlze 


x 


X, 


FAREA + « 


Serial 


SERH 


Serial Number 


X 


X 


FAREA +7 


RLSEQ 


RLSFI 


Reel Sequence Numlwsr 


X 


X 


FARIA+8 


CKSMS 


CKSFI 


Checksums „*«■».«« 
No m Zero 

Yei «= Non-Zero 


X 


X 


FAR1A+9 


BIXSEQ 


BLKF1 


Block Sequence 

H No - Zsro 

Yei ■ Non-Zero 


X 


X 


FAREA + 10 


DICT 


D1CF1 


Dictionary ^ 

Yes * Non- Zero 


X 


X 


FAREA+ 11 


Name 


NAMFI 


Name - Word 1 


X 


X 


FAREA + 12 


Name 


NAMF1 


Name - Word 2 


X 


X 


FAREA + 13 


Name 


NAMF1 


Name - Word 3 


X 


X 


rAttVA + 14 




INPF1 


JpPN«; Number 


X 




FAREA + 15 


Reel* 


REEFI 


Number of Reels 


X 


x 


FAREA + 16 


Record 


RECH 


Number of Input Records 


X 




FAREA + 17 


CKFT 


CKPFI 


Checkpoint 

Standard = 
Non- Standard = 1 
No Checkpoint «= 2 


X 




FAREA + 18 


Retain 


RETFI 


Retain 




X 


FAREA + 19 


CKSMS/BLKSEq 


CKSFI/BLKFI 


Checksums or Block Sequence 
Neither «= Zero 
Yes » Non-Zero 


X 


X 


FAREA ♦ 20 


■no* 


CALCU 


Grouping Factor 






FAREA + 21 






Number of reels processed to date 






FAREA + 22 


*!•> 


SAMWRP 


Blocksize plus CKSUM or Sequence word 






FAREA + 23 


«•«. 


SAMWRP 


Blocking - Blocksize/record length 






FAREA +24 













2.14.0! 



Card edit of 
modification card 




ON TO RECORD 
CARD EDIT 



2.1A.01 



Locate flttt aaved 
word of card 
containing next 
modification 
statement 



I 



(Col. 7-12 of card) 



ofmodlflcaaen 
statements ahead 
to be analysed 

(MODCT) 



Determine number 
of words In convert' 
ed card storage 
associated with 
this ftatement 



mS55c 

SKOO 



[I 



~2. 72. 01 



*m>. 



I 



De finer analysis 



Scan modification 
ftatement 



MODWR 




MODIFICATION CARD WRAP UP 



2.15.01 



2.15.01 



Wttp «p Of 

modification 
card 



j MODWR) 



MODWR 



Locate modification 
card parameter cell 
in common anocia* 
ted with tWi modi- 
fication name 
(MODFR-X) 



Indicate the uae of 
tmi modification 
name by ftorina, into 
common cell locatec 
above Hie of modi 
flcatlon program 



7y 

l MOEDT ) 



On to next modification statement 



2 16 01 



Card edit of 
record card 




CELL RBCCT 



y 



(prout y 



/ 



Record - 
required 
record ttate 
ment not 
given 



3 



Print routine - 
print error message 



Set error twitch 
(DEERR) 



jd DEEDT 1 



ONTO 
DELETE 
CARD EDI1 



2 18 01 



Locate first taved 
word of card 
containing next 
record itmtement 



(Col. 7-12 of card) 



Reduce by 1 count 
of record statement* 
ahead to be 
analysed 

(RECCT) 



I 



Determine number 
of words in convert- 
ed card storage 
associated with 
this statement 



RECSC 
SKOOl 



2. 72. 01 



Scan record 
statement 



I 



DEFER 



Clear table for 
record lengths 
(IENTA, 1) 



Set all signed - 
unsigned switches 
unsigned (0) 

((REUS 4) 



Set bit-char switch 
for characters (0) 
(FIF.BC) set type 
Indicator for fixed 
(0) (TYPFV) 



IRl=Length table 
Pointer 



IR4=Si gne d- unsigne d 
switch pointer 




2 17.01 



RECORD CARD 
WRAP UP 



Record card 
wrap tip 



2 17 0! 




17 



Set tecond 
length equal to 
flrtt 
(LENTA-2) 



CELL LENTA-S 
NO 



Set tlrd lengtl 
(LENTA-S) 



2.17.02 



/r&CWr\ 



/ 







RECLT 



©♦ 



RECMS 
jPROUT / 



/ 



Record - no 
length giver 
for input to 
sort 



Print routine - 
print error 
message 



Set error switch 
(DEERR) 




CELLS LENTA- 16 
<LENTA-2 



NO 




CELIi; LENTA- lb LfcN ' lft- 
RECSH 



P" 



length greater j^ 
thin second jr 



CELLS IENTA-2 6 
LENTA- 3 

YES 



YES 



!>ave first length 
for record length 
test 

(RECSV) 



iiave third length 
for record length 

test 

(RECSV) 



RECSH 



Save second lengtli 
for record length 
test 
(RECSV) 



fia&Teff&rata >* 
^ record .^ 




*NOTIi 

RECORD LENGTH TEST - Determine if all control 
field* fall within specified 
nscord length. Largest 
record length chosen for 
comparison to allow for 
customer modifications whi 



:b affect control fields. 



.CELL RECSV ffROUT 



NO 



Print routine - 
print error message 



\ 



Set error switch 



(DEERR) 



\ 



\ 



Record - 
fields - 
control field 
extends be- 
yond record 
length -,»■>■—* 



Save fixed lengtli 
for input to phase 1 
(IENTA-l)in 
common 

(RECPR) 



I 



Save fixed length 
for input to phase 2 
(1ENTA-2) in 
common 
(RECPR- 1) 



Save fixed length 
for final output 
(LENTA-3) in 

common 

(RECPR-2) 



Ndeedt >r 



ON TO DEU1I CARD EDIT 



2.18.01 



2. 18. 01 



Card edit of dele be 

statement 



/ DEEDT \ 




zTzoToi 



Locate flrrt laved 
word of card 

containing next 
delete statement 



-12 of card) 



Reduce fcy 1 count 
of delete ttatementt 
ahead to he analysed 
(DELCT) 



Determine number 

of words In convert- 
ed card storage 

atsodated with this 
statement 




DEILETE CARD WRAP UP 



2. 19. 01 



2.19.01 



Wrap up of delete 
card 




CELL DSFIE 

PROUT 



^L 



/ 



s 



/■ 



Print routine - 
print error message 



Delete - no 
field given 



(Card 
Content) 



DELCR 
(PROUT y 



T+ 



CELLFILSW, 4 

PROUT 



Print routine - 
print error message 



SELLS FIELN, 4 G IDELE 
PROUT 



Print routine - 
print error message 



Set error switch 
(DEERR) 




Print 1st card of 
Delete statement 



delete/ state- 
* ment 

^/deedt\ 

X18.Q1 



Delete •■ 
delete Held 
not specified 
on re coid 
card 



Delete - 

Identification 
does not agre< 
with control 
field le 



ngjt. 



CELL DSIDE 



CELL DELPR 



Form 6 save address 
of high end of first 
delete control field 
in common 

(DELPR) 



DELPR « DEUETE CARD PARAMETERS 



Update referenced 
parameters para- 
meter to address of 
next unused cell In 
common (REFPR) 



number of 
'hlch parts 



Store 

words in which par 

K? ( ite, 4] 

in common. (Word 
1 decrement) 



(REFER TO DELWR 2) 



/delwr\ 



2.19.02 



2.19.02 



© 



Store field itartlng 
word number 
(FILSW, 4) In 
common 
/Word 1 Addrenl 



Move control field 
l«ft m .fk{nLLM,4 
t0 common* 
(Word 2) 



Mov* control fltld 
right nuuk (fllRM, 

4) to common 
(Word 3) 



MUM 
DELSF 



Align respective Ml 
MMtionfl of delete 
field and control 
field by positioning 
delete field 



leve repositioned 
delete field words 
In common 

(Word 4, etc.) 



Increete delete 
•tenement count 

fcyl 

(DELPR decrement 



DELETE CONTROL HELP DESCR IPTION AREA LAYOUT 



WORD 


PORTION 


bfeSCRiPTtoN 


1 


Addreei 


Stertinc word 


Decrement 


Number of word* field extendi over 


2 


Entire 


LeftMetk 


a 




Mjht Made 


• 


Entire 


First word of field 



j N JEnt 



Entire 



Lett word of field 



/deedtN 

2. 18. 01 



S 



ON TO NEXT DELETE STATEMENT 



2.20.01 



Card edit of 
sort statement 




CEIL SORCT 



Set tort twitch 
(SAMPR-4) 



Locate first Mved 
word of card 
containing tort 
statement 



I 



Determine number 
•f words in convert 

*d card Stowage 
associated with 
this statement 



SORSC 
KKOOl 



2.73.Q1 



Scan tort 
Statement 



DEFER 



I 



2, 23. 01 



De finer analysis 



/meidtV 

2.21.01 



TO MERC 
CARD 
EDIT 



(Col. 7-12 of card) 



2.21.01 



Card edit of 
merge statement 




CELL MERCT 



NO 



( 

^SMWRPA CA 



ONTO 
RT-MERC 
CARD WRAP 
UP 



2.22.01 



Set merge twitch 
(SAMPR-8) 



Locate flfit saved 
word of card 
containing merge 
statement 



(Col. 7-12 of card) 



Determine number 
•f wards la conven- 
ed card storage 
associated with 



MERSC 
JBQQ1 



sp 



2. 72, 01 



Scan merge 
statement 



DEFIR 



2. 2301 



I 



Define? analysis 



Wrap up oi sort ■ 
merge cards 



2.22.05 




cell used to save 
addr, of sort input 
file block 

(F1LPR) 



FlLPR=File Card Parameters 



Cell SAMPR-5 



Sort or merge 
statement 
not given 




Set enor switch 
(DEERR) 




*"* 



CELLMSORD 

(PROUT 



fSAMWRPI 
6-C 



2.22.06 



PRINT ERROF 
MESSAGES 
STOP 



Pirint routine - 
print error message 



Set error switch 
(DEERR) 



rfSMWRP 



Ixtract soft- merge 
order 



Extract marge- 
merge order 



Sort-merge 
cards - no 
merge order 
given 



2.22.0 



Save merge order 
in common 
(SAMPR- 1) 



SAMPR = SORT B MERGE CARD PARAMETERS 




CELL SSSEQ 



NO 



CELL MSSiEQ 



Extract sequence 
given on sort card 
4SESCS) 




Siit sequence cell in 
common to indicate 
scientific (zero) 
(SAMPR) 



SMSEM 



Extract sequence 

given on merge 

card (SEMCS) 



ji 



Save specified 
sequence in commo; 



(SAMPR) 




SAMPR=SORT & MERGE 

CARD PARAMETERS 



2. 22. 02 



2.22.02 



Sort - merge | 
- no file* 
given to tort 

or merge 




SMD4S 



Find location of 
file Hock In commcjn 
associated with sort 
Input file and mvb 
it In common 
(FIIPR) 



Remove specified 
file from input file 
taMe^FIUN, 2) 



KB* SMJXA j 






IR2 = INPUT FILE TABLE POINTER 



2.22.07 



Yes 



±+ 



Extractnext unr 
tested file numb« 
starting at the oe 
ginning ol 
file table 

(FIIN,1) 



SMBEG 




1R1 ■-- Input file table pointer 
Cell FILIN, 1 Decrement 



SMMOVX'All 

Sells of input* 

^&£ file table scannec 



Cells F1LTA, 4 FIIJN, 1 Decrement 

SMTMV 

save till s me t- 



■npctaTe™count 
of files moved, 



(SMAXT} 



G location of its 
file block in a tem- 
■-> porary buffer as a 
legal merge input 

file (SMTAB, 1) 



DECVA 



Conversion routine- 
convert file numbe 
to BCD for mess- 
age 



fPROUT 



Print routine- 
print error me 
age 




2.22.03 







i 



uctract count ol 
input filet ipeclfied 
fo»«i«rgtng 



(SMAXT) 



.Save number ol 
input flies to be 
mergedin corns 



coram on 



(SAMP*- 2) 



SAMPR=Sort & Meige Card Ptnmttcn 




Call SMTAB, 2 (IR2 - Merge File Buffer Pointer) 



Move content of 
following cell of 
buffet to ail por- 
tion to fill in emi 
location 



Set following, cell, 
m content oT wHc 
was moved, to 



wsro 



NOTEi Filling in gaps left in temporary merge input file 
buffer by abience of file* from Input; file lift when 
buffer «u filled. 



FILPR » File card parameten 

NOTEi Eacb cell of the buffer contains the number (decrement) 
and file block location (addreti) of a merge input file. 




Cell FILPR- 2 



Yei 



File Block word 1 




2.22.04 



FAREA 




2.22.05 



SAMPR-4 




?leT"| 

glveffl I 

for sort- not I 
■ valid mergl 

^1 order | 



PROUT 



Print Error Message 




Set: error twitch 
((DEERR)) 



BLLOC 



.M 



Extract blocks!; 
from inoc. input 
hie date biock 



(FAREA+5) 



FAREA+19 




Tncremen^TlocTSne 
(effective record 
length) by 1 & save 
in ffie block (FAREA 
+22) 



BLNOT 



iet actual record 
length equal to effect 
lve record length 
(blockslze ) & save 
in file block 

(FAREA+22) 



BLDVD 



^ 



■fAREA+5 



% 



1* 

input record 

length sepcifled. . " 
,a rector &f specifie, 
.blockslze 



No 



Extract input file 
number 



rO 

BLSTL 

( DECVA 



File xxx- 

Record length 

not factor of 

input block 

length 



Conversion routine 
convert field numb 
to decimal for mess 
age 



(PROUT / 



Print Error Message 



OREM X Yes 

^Save blocking 
factor In assoc. 
file block 

(FAREA+23) 



J 



I 



Set Error Switch 
(DEERR) 




2.22.06 




sIIFILPR-2 



Cell FtLPR-l 



Extract blockslze of" 

next merge input 

file from assoc. file 
block 



FAREA+19 




Increment block= 
size (effective rec- 
ord length J by 1 6 
save in file block 



(FAREA + 22) 



Set actual record" 

lengthequal to 
effective record . 

length (blocktize ) 
& aave in file block 

(FAREA + 22) 




Extract input 
file number 



BLKM E VYes 
Save blocking 
factor In assoc. 
file block 

(FAREA+23) 




Set error switch 
(DEERR) 



22.07 



2.22.07 



rfctract merge order 
(SAMPR-1) 




Ml 



T ldWfAMwr-i) 

to number of files 
to be merged 

(SAMPR-2) 




NOTE: 1 = Merge Order 

2 = Number of file* to be merged 



(PROUT 



CD" 



Print error 
Message 




Number- of 
files to be 
merged is 
higher than 
merge 
order 



SMFLD 




SSFIE 



MSF1E 



No 



SMF1S 



Save number of 
:ont. fields to sort 
on, in common 

(SAMPR-3 
DECREMENT) 




SAMPR= 
Soit G merge 
card para- 
meters 




Set error switch 



(DEERR) 



(PROUT 



SMONL 



Print routine- 
print error messagi 

~"\ 



2.22.10 



&AMWRP1 
10- C 

Print error 
message & stop 




Prepare for analysis 
of merge field de- 
finers rather than 
sort field definers 



Save number of 
cont. fields to 

merge on, in 
common (SAMPR 

-3 DECREMENT) 



\ 



3 



NOTE: If merging only, controlfield data must be taken 
from merge card. If sorting or sorting and merging 
control field data is taken from sort card. 



Sort-merge 
no field de- 
finers given 




2.22.08 



area 



Compute address 
f high end of an 

Sbe used for 



in common 



o 



(SAMPR-3) 



SAMPR - SORT 6 MERGE CARD PARAMETERS 



SMFIW 



Find next unproces* 
•d control field 
number for the 
input HI* 



xxxxxx=Ff£LD 

NUMBER 



Find ascending - 
descending twitch 
content associated^ 
with this control 
Hold. 




CELL F1ELN, 4 (IR4=F HUD NUMBER ) 

(DECVA 



/ 



' s 



Set error twitch 
(DEERR) 



Convenien routine - 
convert field numbe 
to decimal for 

message 



(PROUT • 



/ 



Print routine-print 
error message 



Sort or merge 

field xxxxxx 

lot defined 

on record 
ard, or de- 
nea twice 

on sprt 

can 




2. 22.10 



ortn a word with 
lumber of field,. _„ 
tartfng wc*«r7FIL5W. 
JTn aadreM f nam 
>er of words In wW 
parti of field are 
Contained (FILNW, 4) 
in decrement 



IR4=FIELD NUMBER 



"or 



fe^S^S. DESCENDING 


Make formed word 
minus 


r specified J*~~ 
r this fleld^X^ 




^***f ASCENDING 







Store formed word 
In field description 
area in common 
(Word 1 for this 
field) 



Form a word equal 
to xero 



/ SAMWWl 
2. 22. 09 



(REFER TO SAMWRP 6) 



2. 22. 09 



CELL GENPR-1 

SMWBC 




CELL FJEUS, 4 (IR4*#IELD NUMBER) 



BCD ^ "field signed, flf'^ ^gCNED ^ 
unsigned 



UNSIGNED 



Moke the formed 
, word equal to 
two 



CELLFIEUS,4 
([R4*fIILD NUMBER) 



Moke the formed 
word equal to one. 



X- 



Store developed 
word Into field" 
description eras in 
:ommon (Word 2 

for this field) 



I 



Extract left maik 
(FILLM,4)t itore 
into field descriptloi 
area la commoa 
(Word 3 for this 
'field) 



I 



Extract right mask 
(FILRM.4) S rune 
Into field deicrlptlo 
area In common 
(Word 4 for this 
field) 



I 



In address « numoer 



n address G num 



I 



cre- 



NOTEi » LOGICAL COMPARE 

1 -ALGEBRAIC COMPARE 

2 « SIGNED BCD COMPARE 
(REFER TO SAMWRP 6) 



IR4=FIELD NUMBER 
(REFER TO SAMWRP 6) 



IR4= FIELD NUMBER 
(REFER TO SAMWRP 6) 



IR4-FIELD NUMBER 



Store formed word 
into field descriptio 

area in common 

8Vord 5 for this 
eld) 



Set switch for this 
field to zero to 
indicate that it has 
been processed 
(FIELN, 4) 



(REFER TO SAMWRP 6) 




ON TO NEXT CONTROL 
FIELD 



IR4 = FIELD NUMBER 



2. 22. 10 



2.22.10 




CellOPTPR-3 

SMPXA 



Cell DEERR 



~ Increase by one 
count fin common) 
of com. fields usee 
(SAMPR-3 Decre- 
ment) 



I 



Set up * psuedo 
control field des- 
cription area in 
common at follow!: 
Word 1 - Address 
starting word equal 
to lasrwprd of in- 
put recorcf to phase 

Decrement 
Num bt r, or wurui) — r 
control field extendi 
over equal to 1 
Sign 

Plus - Indicating as- 
cending order 



Wore! 2~- Entfre" w3.** 
Zero Indicating logi 
:al compare 

Mail fVall^ -' 
bits 

"Word*4"- **Entirg* Wd" 
Right mask ot all 
bits 

$ord~5 ™ JTlsfcess"* "~ 



Field, starting bit. 
position - T e 



tero 



qual to 



lumber pi u: 
bits in last 
field equal 



Decrement 
1 unused " 
word of 
to zero 



Update* referenced 
parameters para- 
meter to address of 
next unused cell 1 
common (REFPR) 



<D 



NOTEi Count will now include STOP 
psuedo control field to /pROUT 
be generated 




On to calcu- 
Jsf*" lations 



(PAUSEJ ' 



Errors found in carTanaTysTs"" 
Option procedure 

1. To delete this Job press 
start. OR 

2. To interrupt the system— 
Set SSI— Press start Put 
SSI up and then set down 
again. Attach reader as 

SYS1N1 - Execute sort & . 
place new sort cont. cards 
in reader OR 
3. To continue (Ignore the 
condltlon)=-Set SS2 —Press 
Start. Errors are assumed 
allowable 



Print & stop 
(press statt) 



Operator 
action pause 
action com- 
pleted. 



INRPT 



2.71.01 



ction when system 

Interrupted because 

of program error 




Restore index regi- 
ster 4 (EP002) 



SORT/ME 


RGE CONTROL FIELD DESCRIPTION AREA LAYOUT 


Word 


Portion 


DESCRIPTION - 


1 


Sign 


Ascending = 0, 


JVddress 


Starting Word 


Decrement 


Number of word"! field extends over 


2 


Address 


Logical compare - 
Algebraic Compare = ) 


3 


Entire 


Left Mask 


4 


Entire 


Right Mask 


5 


.AddKiiS,,—. 


Field starting bit position 


[Decrement 


Number of unused bit positions in last 
word of field 



70.01 



Return to 
sort monitor 
via 
10,4 
(Job deleted) 



2.23.01 



Subroutine for 
finding dcfiner 
analysis program 



DEFER 




Save index 
register* (Defe 1, 
Defe 2, Defe 3) 



Save location of 

flnt dcfiner in , 
core 6 number of 

definen present 

(Defe 4) 



I 



Determine maxi- 
mum number of 
allowable definen 
for the statement 
* «ve ( D .f, S) 



Locate de finer 
switches associated 
with this statement 
and reset them to 
tero 




CELL DEFE 4 
PROUT 



Print routine 
print error 
message^^ 



•SELL DEFE 4 

PROUT 



YES, 



Print routine - 
print error 
message 



DEFE 6 



determine location 
3f last word in 
appropriate definer 
Identification list 
save (Defe 8) 




xxxxxx j 
No definer I 
given I 



DEFEO 



NOTEi xxxxxx "CARD TYPE 



Set error 

switch 

(DEERR) 




DEFE 



Restore index 

PCT Defe 2, 
Defe 3) 



xxxxxx 

Too many 
de finer* 
given 



RETURN TO ASSOCIATED 
CONTROL CARD WRAP UP 
ROUTINE VIA 

1, * 



NOTE: xxxxxx = CARD 
TYPE 



2. 23. 02 




Determine location 
6 tave (Defe 9) 




CELL DEFE 4 



YES 




Determine number 
of parameters and 
itvi (DECNT) 



Determine name of 
deflner and lave 
(DECPR) 



DEFE 8 




Print routine - 
print error 

mettage^^^^ 



xxxxxx 

Illegal de- 
fined Thlt 
li die define 

yyyyyy 

4 




NOTEi xxxxxx > 

yyyyyy, 



CARD TYPE 

GIVEN DEFINER IN ERROR 



(DEFINER SWITCH) Note 1 
JPROUT 



Print routine - 
print error 



Set error twitch 
(DEERR) 



DECNT 



-o 



Find location of 
next deflner In 
core & tave 
(Defe 4) 



'S 



DEFE 9 



xxxxxx 

yyyyyy 

Two jjlven 



I 



Decrease number 
of deflners pre- 
•snt by 1 and 
tave (Defe 4) 



OUT TO APPROPRIATE ANALYSIS ROUTINE 

VIA 

ANALYSIS ROUTINE ORIGIN TABLE 

(SEE STATEMENT TABLE) 
2. 00. 01 



NOTEj 

xxxxxx = CARD TYPE 

yyyyyy = DEFINER NAME 




2.23.02 



NOTE 1 - DEFINER SWITCH SET ON FIRST PASS THROUGH ASSOCIATED ANALYSIS ROUTINE. 



2.24.01 



Analyst! o* 
checksum de- 
flner - option 
card 



"*1 




ON TO NEXT DEFINER 



2.23.02 



Analysis of no 
checkpoint de~ 
finer - option 

fjftnl 



2. 25. 01 



NOCOP 




S«t no checkpoint: 
twitch • 1 
(OSNOC) 




ON TO NEXT DEFINER 



2.23.02 



2. 7.<i.0l 



Analysis of equals 
de finer - option 
card 



EQUOP 




Set equals switch 

* 1 

(OSEQU) 




ON TO NEXT DEFINER 



2.23.02 



2. 27. 01 



Analyili of 
variable dcflnar 
option card 



VAROP 




Ut variable 
twitch - 1 
(OSVAR) 




ON TO NEXT DBFTOKR 



2.23.02 



2.28.01 



Analyiii of 
buffer define* 
option card 



BUFOP 



/bufoA 



Sat buffai 
twitch- 1 
(OSBUT) 




ON TO NEXT DEFINBR 



J7Z3.02 



2.29.01 



Analyst* of re- 
locate common de- 
flnet - option card 




CELL DECNT 



NOPAR / 



xxxxxx 

No para- 
meter given 



Note: 

xxxxxx * CARD TYPE 

yyyyyy » DEFINER NAME 



Not charted 



Error routine 
print error 
menage 



Extract parameter 
(number of cells 
common li to be 
relocated) 



CNVRT 



2.69.01 



Convert It to 
binary 



ERROR 



NORMAL 



RROR RETURN - ON TO NEXT 
DEFINER 




CVTER x 



Error routine 
print error 
message 



-J^) 



'CARD TYPE 

DEFINER NAME 



ERROR RETURN - ON 
TO NEXT DEFINER 



2.23.02 



Save converted 
parameter In 
rel com switch 
(OSREL) 




CONVERTED PARA- 
METER 

/PROUT * 

wmmmm—mmmmjt* 



Print routine 
print error 
message 




2.23.02 



NORMAL RETURN - ON TO NEXT DEFINER 



ERROR RETURN - ON TO 
NEXT DEFINER 



2.23.02 



V 



2.30.01 



Analyst* of 
block definer 
overflow card 



Cell Decnt 




NOPAR 



xxxxxx 

yyyyyy 

No paramete: 
given 



Motti 

xxxxxx «• CARD TYPE 

yyyyyy - DEFINER NAME 



Nfft charted 



Error routine print 
error meaage 




ERROR RETURN - ON TO 
OVERFLOW CARD WRAF UF 



2. 23. 02 



Extract Parameter 
(number of tape 
record* previously 
procened) 



CNVRT, f 



CVTER 



2.69. 01 



Convert It to 
binary 



ERROR 



.NORMAL 



Not charted* 



Error routine print 
error menage 



xxwow 

mm. 

Illegal 
character 




Note i 

xxxxxx » CARD TYPE 

yyyyyy - DEFINER NAME 



ERROR RETURN - ON 
TO OVERFLOW CARD 
WRAP UP 



2. 23. 02 



Save converted 

parameter In de- 
finer twitch 
(OSBLO) 




NORMAL RETURN - ON TO OVERFLOW CARD WRAP UP 



2. 23. 02 



2.31.01 



identification 
deflner - Ub«I 
card 



Call Oecnt 




NoPnr 



Not Charted 



Error routine - 
print inn mentg« 



xxxxxx 

mm 

No para- 
meter given 



Notei 

xxxxxx ■ Card Type 

yyyyyy * Deflner Name 




Jbefer 
"H 2-B 



S 



ERROR RETURN - ON TO 
LABEL CARD WRAP UP 



2.23.02 



Extract flrrt 
character of 
Parameter (H) 




Label - 
ldentlflcatloi 
M not given 



Print routine - 
print error men- 
age 



Set error twitch 
(DCERR) 

zzr~ 



Extract label 
length from 
Parameter 




PARAMETER 
(PROUT 



Label - 
ldentlflcatloi 
- over 14 

jm word* or 
_/| under 3 
word* long 



Print routine - 
print error men- 
>g« 




ERROR RETURN - ON TO 
LABEL CARD WRAP UP 



2.23.02 



Calculate lait 
location of commo 
used for label card 
storage 



I 



inced 
'am- 
meter' cell to 
specify last used 
cqtnr ----"*-- 



Upda 
Parar 
meter" 



te'Veferer 
rameters Pai. 
ell to 



on 



cell for 
■a storage 




2.31.02 




Store lift location 
of common uied 
by label In eommo 

(LABPR-2) 



Determine number 
of word* in label 
and lave In 
common (LABPR 



mm. 



i 



Move next word 
of label from de- 
flaer buffer to 
common label 
area 



Set label - 

identification de- 
fine* twitch 
(HIDE) 



LABPR « LABEL CARD PARAMETERS 



LABPR - LABEL CARD PARAMETERS 





ON TO LABEL CARD WRAP UP 



2.32.01 



Analysis of Input 
deflner - channel 
curd 



CELL DECNT 




NOPAR • , 

Jfat Charted 

Error routine - 
print error menage 



o 



Extract the next 
unprocessed para- 
meter (channel on 
which input li 



mi 
re 



asjfffitr"' 




NOTEi 
xxxxxx ; 

yyyyyy r 



CARD TYPE 
DEFINER NAME 



ERROR RETURN - ON TO NEXT 
DEFINER 



2.23.02 



I NPUJ. 



Extract next un- 
processed character 
of parameter 
starting at the low 
order 



PARAMETER 



INVADD 




Channel - 
Input - chann 
lot correctly 
specified 




Print routine - 
J print error message 



#- NUMERIC 



Change channel 
letter to numeric 
equivalent 




0=20 
LL INPOA 

man 1 5± 



Channel - 
Input - two 
different 
channels 
given 



urns. 



INPNO 



Set A to H mode 
indication 

(INPOA) 



7 



Print routine - 
print error message 



2.32.02 




Change channel 
letter to numeric 
equivalent 



23.02 





CELL 
INPNU 

YES 



Save numeric portloi 
of channel desig- 
nation (chain 
number) 
(INPNU) 



YES X^\* 

Other 
channel mode 
given previous! 

ERROR " 
♦-RETURN - 
ON TO NEXT 
DEFINER 




2.32.02 



/WcH A 



3. 32. ');' 



9 



Set J to Q mode 

indication 

(INPOJ) 




Set fittt Urn* 
through twitch (first 
tip* character 
(canned) 

(INPCN) 
WPMS | 



PROUT 



Print routine - 
print error menage 




ERROR RETURN - ON TO 
NEXTDEFINER 



2,23.02 



Extract equivalent 

£&n h . a nT'o«& 
numeric portion of 
parameter (chain 
numbertaReleaee bit 
If specified "ZOXOX 



INPXT 



■tore formed word in 
input channel table 

(INPTA, 4) 



I 



x = CHANNEL UTTER 

Y = NUMERIC PORTION OF CHANNEL DESIGNATION 
i = RELEASE INDICATION (G) 



IR4 = CHANNEL TABLE POINTER 



Initialize number 
cell by reletting to 
tero 

(INPNU) 



PREPARING FOR NEXT PARAMETER 




NO 




INPCH 
2.32.01 



ON TO NEXT PARAMETER 



2.32.03 



2.32.03 




Arrange content! 
of channel table 
celit In frequence 
by overall channel 
designation 



INPCT i , 



Calculate location 
chan- 
common 
common 



WUCIUBW IOC! 

of flttt cell of i 
nel table In coi 
and save In cor 



X 



m 



Update referenced 
parameter! paramete 
do location of lart 
location uaed In 
somrnon by channel 
table (REFPR) 



TMVtf . , 



Move sorted channel 
input table to 
common 



CHAPR - CHANNEL CARD PARAMETERS 



r DEFER \f~- NORMAL RETURN - ON TO NEXT DEFINER 




Set release mode 
for Inteisyitem 

communication 

(INRSW) 




Process next character 



PCH 
1-A 



2. 32. 01 



Indicate error 



Analysis of merge 
define* • channel 
card 



2.33.01 



ciudecnt 




{PROUT 



Frist routine - 
print error message 



Channel - 
merge - 
ncorrect 
number of 
channels 
given 



Extract l«rw order 
character of next 
unprocessed para- 
meter (merge 
channel) 




PARAMETE 



? 



PROUT, ' 



/ 



Channel - 

channel not 

correctly 

specified 



INVALID 



Print routine - 
print error message 




, DEFER 
-W 2-B 



2.23.02 



ERROR 

TURN - ON 
TO NEXT 
DEF1NER 



Change channel 
letter to numeric 
qui va lent G save 

[CHANM, 4) 




A = 1 

c=4 

D =4 
E = 5 
F = 6 
C =7 
H = 10 



IR4 = MERCE CHANNEL NUMBER 
STORAGE AREA POINTER 



YES 



CELL 



^"CHANM, 4 /pROUT 




NO 



Print routine - 
print error message 



Channel - 
merge - 
same channel 
specified 
twice 



2.23.02 



ON TO 

lwer 



Set channel - 
mer^c de finer 
switch (C SKIER) 




DEFER 
2-D 



2. 23. 02 



NORMAL RETURN- 
ON TO NEXT 
DEFINER 



Analytic of output- 
channel card 



2.34.01 



CELL DECNT 




/ 



NOPAR • 



/ 



mm 

No para- 
meter given 



NOTEt xxxxxx = CARD TYPE 

yyyyyy = DEFINER NAME 



Nat ctoad. 



Error routine - 
prist error menage 



-P* 







Extract the next 
vnproceived para- 
meter (output 
rha—tl) 



sum 



y£L 



Extract next an- 
proeeaaed character 

of parameter ftart- 
btgat the low 
order 



Channel - 

Mltput - 

channel not 




PARAMETER 



INVALID 



OUTER 
(PROU 




PROJ£L 



I 



Print routine - 
print error menage 




DEFER 
2-B 



2.23.02 



ERROR 
RETURN - 
TO NEXT 
DEFINER 



ON 



§ = NUMERIC 



Change channe 
letter to 

numeric 
designation 



OUTNR 



OUTNO 



Change channel 
letter to 
numeric 
designation 



Save numeric 
equivalent of 
channel (J-Q) 
(CHANO) 



H=10 




CELL 

OUTNU 

YES 



Save numeric 
equivalent of 
cfiannel (A-H) 

(CHANO) 

m 



Save numeric 
portion of 
channel de- 
signation 

tninwn 



Set channel - 
output de finer 
•witch 



(CSOUT) 





2.34.01 



NORMAL RETURN - ON TO NEXT DEFINER 



2. 35. 01 



Analyst! of reel* • 
file card 




CELL DECNT 
NOPAR 



^NO^ 



Extract parameter 
(number of reel* 
comprising file) 



CNVRT 

2.69.01 



Convert It to 
binary 



Save converted 
parameter In 
file block 
(FAREA + 15) 



Set file - reel 

de finer twitch 
(FSREE) 



Not charted 



Error routine 
print error message 




NOTE« 



xxxxxx « CARD TYPE 
yyyyyy = DEFINER NAME 



ERROR RETURN.- ON TO NEXT 
DEFINER 



2. 23. 02 



S 



CVTER 



ERROR 



NORMAL 



Not Charted 



Error routine 
Print error 
message 



TCtCfl. 

Illegal 
character 



NOTE. 

xxxxxx = CARD TYPE 
yyyyyy * DEFINER NAME 




r DEFER 
2-B 



2. 23. 02 



S 



ERROR RETURN - ON 
TO NEXT DEFINER 




NORMAL RETURN - ON TO NEXT DEFINER 



2.36.01 



Analyst* of mode 
iefiner - file card 



CEO. DECNT 

NOPAR 




Vxxxxjc"" 

jocoay 

No paramete: 
given 



Not Charted 



Error routine 
Print error message 




NOTE: xxxxxx = CARD TYPE 

yyyyyy ■ DEFINER NAME 



ERROR RETURN => ON TO NEXT DEFINER 



Extract parameter 
(Mode of file, bi- 
nary or BCD) 




Parameter 



NEITHER. 



(PROUT 



File-mode- 
arameter in- 
correctly 
given 



Print Routine - 
Print error message 



P ROUT * 

I print first card of 



(Card Conten ) 



statement in 
error 



finer 



Error return 
V^" ^y jC*"on to next de- 

/defer\ 

2.23.02 



MO DD 

Set decimal mode 
Indication into file 
block (FAREA) 



I 



MODB \ 




Set binary mode 
J indication into file | 
(block (FAREA) 



Set mode given 
once switch (file 
mode, de finer 

swltch)(FSMOD) 



I 



Set mode given 
once switch (file 
mode deflner switcl 
(FSMOD) 



^ 



NORMAL RETURN 
/ON TO DEFINER 




2.37.01 



\nalysls of density 
ie finer - file card 




CELL DECNT • 

NOPAR y 

Not Charted 



Error routine - 
print error message 




NOTEt 

xxxxxx * CARD TYPE 
yyyyyy * DEFINER NAME 



ERROR RETURN- ON TO NEXT DEFINER 



2.23.02 



Extract parameter 
(density of file) 



PARAMETER 




/ 



(PROUT s' 



File ■■ 
density - 
parameter 
incorrectly 
glverii 



Print routine - 
print error message 



PRTF1 
(PROUT 



(Card Con- 
tent) 



"9 Print First card of 
itatement in error 




EFER 
2-B 



Error Return 
><On to next 
definer 



702 



DENL 



let- lew density 
indication into file 
block (FAREA + 1) 



I 



PENH 



Set high density 
indication into file 
block (FAREA + 1) 



Set file - density 
definer switch 
(FSDEN) 



Set file - density 
definer switch 
(FSDEN) 



NORMAL 
RETURN - 
ON TO 
DEFER \ NEXT 
"H 2-D J DEFINER 

2.23.02 




2.38.01 



Analysis of CKSMS 
deflnef - file curd 



CKSFI 




Set file - checksums 
deflner twitch 
(SFCKS) 



Set checksum! 
twitch la file block 
(FAREA 4 8) 



Set checksums or 
block sequence 
switch In file block 
(FAREA + 19) 



2.23.02 




ON TO NEXT DEFINER 



2. 39. 01 



Analysis of 
BIKSEQ deflner 
file card 



BIXFI 




Set file - block 
sequence deflner 
•witch 
(FSBIK) 



I 



Set block sequence 
twitch in file 
block 
(FAREA + 9) 



Set checksums or 
block sequence 
switch In file block 
(FAREA + 19) 




ON TO NEXT DEFINER 



2. 23. 02 



2.40.01 



Analysii of 
dictionary define?" 
file card 




Set file - 
dictionary de finer 
twitch 
(FSDIC) 



Set dictionary 
twitch In file block 
(FAREA + 10) 




* ON TO NEXT DEFINER 



2.23.02 



2.41.01 



Analysis of retain 
definer - fit" card 




CELL DECNT 



NO 



Extract parameter 
(number of 
intention day*) 



NOPAR ^ 



Not Chatted 



Error routine - 
print error message 



xxxxxx I 

myyy I 

No paravneteJ 
given J 



NOTE i 

xxxxxx = CARD TYPE 
yyyyyy = UEFINER NAME 



/defer v"~ 

2.23.02 



ERROR RETURN - ON TO 
NEXT DEFINER 



Extract three low 
order characters 



RETBL 



Set final parameter 
format (BL, BL, 
BL, X, X, X) 



I 



Save finalized 
parameter in file 
block (FAREA + 18) 



Set file - retain 
deflner switch 
(FSRET) 



PARAMETER 




YES 



Reset the 
character to a 
zero 



Jefer 
-W 2-D 



NORMAL RETURN - ON TO NEXT DEFfNER 




2.23.02 



2.42.01 



Analysis of output 
deflner - file card 



OUTFI 




Set file - output 
deflner twitch 
(FSOUT) 




ON TO NEXT DEFINER 



2. 23. 02 



2.43.01 



Analysis of input 
definer - file card 




CELL DECNT 



/ 



/ 



NOPAR 



NO 



HQt Tharh-H 



Error routine - 
print error message 



NOTE: 

xxxxxx = CARD TYPE 
yyyyyy - DEFINER NAME 



error return - 
x"— "v .^ on to next definer 

/defer y 




2.23.02 



Extract parameter 
(logical # assigned 
to input file) 



/ 



CNVRT L 




2.69.01 


ERROR 


Conversion routine - 
convert it to 
>inary 


NORMAL 


1 











CyTKf 



Not Charted 



Error routine - 
print error message 



xxxxxx 

YYYYYY 
Illegal 
haracter 




NOTEi 

xxxxxx ■ CARD TYPE 
yyyyyy - DEFINER NAME 



ERROR RETURN - ON TO 
NEXT DEFINER 



2.23.02 




2.23.02 



.Save converted 
parameter in file- 
input definer switcl 

(FSINP) 



I 



Save converted para 
neter in file block 

(FAREA + 14) 




NORMAL RETURN - ON TO NEXT DEFINER 
JEFER^ y^ 
2-D 

2.23.02 



2.44.01 



Analysis of blocking 
define! - file card 




CELL DECNT 



/' 



/ 



NOPAR 



yyyyyy 

No parameter 
given 



NOTE: 

xxxxxx « CARD TYPE 
yyyyyy - DEFINER NAME 



NO 



Nftt Chart* A 



Error routine - 
print error message 



<T»EFER ^T 
c7 



ERROR RETURN - ON 
TO NEXT DEFINER 



2.23.02 



Extract parameter 
(Ulocksize no. of 
words per tape 
block) 



CNVRT, 



/ 



/ 



2.69.01 



onversion routine 
convert it to 
binary 



ERROR 



NORMAL 




1 

STEER 



CVTER / 



Not, Charted 



Error routine - 
print error message 



xxxxxx 

Illegal 
character 



NOTEi 



xxxxxx » CARD TYPE 
yyyyyy « DEFINER NAME 



/DEFER Y 



ERROR RETURN - ON 
TO NEXT DEFINER 



2.23.02 



"BT 

(PROUT 



■fc Print Error Message 



Flle-block- 
size over 200C 
or under 3 
wds. on this 
statement 



PRTFI 
I'PROUT 



Print 1st card of 
statement 



(Card con- 
tent 



Error re- 
turn on to 
next define! 




Srve converted 
parameter In file 
block 

(FAREA + S) 



I 



NOTEs Blocksize limitsi 

1. No greater than 2, 000 words decimal 

2. No smaller than 3 words decimal 



2. 23. 02 



Set file -blocksize 
definer switch 



(FSBIO) 




NORMAL RETURN - ON TO NEXT DEFINER 



2.45.01 



Analysis of 
padding deflner 
file card 




CELL DECNT 



/ 



/ 



NOPAR y 



yy>yyy 



No parametei 
given 



NOTEi 

XXXXXX ' 
yyyyyy « 



= CARD TYPE 
DEFINER NAME 



Not Charted 



Error routine - 
print error message 



^/defer yf 



ERROR RETURN - ON 
TO NEXT DEFINER 



2.23.02 



Extract deflner 
(high or low) 



/ 



/ 




PARAMETER 



NEITHER 



(prout y 



/ 



File padding 

Illegal 

parameter 



^' 



Print routine - 
print error message 



PRTFI *. 

f PRO'WT*' 



(Card Con- 
tent) 



Print First Card 
of statement 



Error 
yTleturn - 
On to next 
DEFER \definer 
2-B 

2.23.02 




PADL 



1 



PADH 



Set low padding 
indication (1) into 
file block 
(FAREA + 2) 



Set high padding 
indication (2) into 
file block 
(FAREA + 2) 



Set file - padding 
deflner switch 
(FSPAD) 



Set file - padding 
deflner switch 
(FSPAD) 



J 




DEFER 
-M 2-D 



2.23.02 
NORMAL RETURN - ON 
TO NEXT DEFINER 



Analysis of serial 
number define* - 
file card 



2.46.01 




Extract parameter 
(file ferial number) 



SERTS 



Set "Blanks" to 
"zeros" 



I 



Save parameter 
in file block 
(FAREA + 6) 



I 



Set file - serial 
define* twitch 
(FSSER) 




CELL DECNT 



NO 



NOPAR 



/ 



xxxxxx 



mm 



Mo parameter 
given 



NOTEt 

xxxxxx = CARD TYPE 

yyyyyy ■ definer name 



Not Charted 



Error routine - 
print error message 



Vdefer^T 

2. 23. 02 



ERROR RETURN - ON TC 
NEXT DEFINER 



NORMAL RETURN - ON TO NEXT DEFINER 



2.47.01 



Analysis of label 
deflner - file card 




CELL DECNT 



/ 



/ 



NOPAR 



^L 



xxxxxx 



VCCCCL 

No parametei 

given 



NOTE: 

xxxxxx «■ CARD TYPE 
yyyyyy = DEFINER NAME 



Not Charted 



Error routine - 
print error message 



2.23.02 



ERROR RETURN - ON TO 
NEXT DEFINER 



IABCH 



Extract parameter 
(type of label, 
standard or non- 
standard G density) 




S 



PARAMETER 



NEITHER 



IABFE 
IPRPIFT 



Print routine - 
print error message 



File - label 
illegal 
o' character 
given 



PRTFI 
^ROUT 



Print 1st card of 
statement 



(Card Con- 
tent) 




IABS \* 




atior 



(FAREA + 3) 



LABN ,, 



IABL t t 




(FAREA + 3) 



I 



Set low demity 
(FAREA + 4) 



LABH 



Set high density 
(FAREA + 4) 




Set file - label 
definer switch 
(FSLAB) 



J 



NORMAL RETURN - ON TO NEXT DEFINER 



2.48.01 



Analysis of reel 
sequence number 
- file card 




Extract parameter 
(reel sequence 
number) 



RITES 4, 



Set final para- 
meter format 



<0,X,X,X f X, 0) 



I 



Save finalized 
parameter in file 
block 
(FAREA + 7) 



Set file - reel 
sequence define r 
switch 
( (FSREJ.) 



CELL DECNT 



/ 



NO 




/ 



KOPAR 



uH. 



yyyyyy 

No parametei 
givun 



NOTEi 



Not Charted 



Error routine - 
print error message 




xxxxxx ■ CARD TYPE 
yyyyyy « DEFINER NAME 



ERROR RETURN - ON TO 
NEXT DEFINER 



NORMAL RETURN - ON TO NEXT DEFINER 



2. 23. 02 



2.49.01 



Analysis of name 
definer - file card 




CELL DECNT 



NOPAR 



xxxxxx 

yyym 

No paramete 
given 



NOTEj xxxxxx = CARD TYPE 

yyyyyy •+ DEFINER NAME 



Not Charted 



Error routine - 
Print error message 




ERROR RETURN - ON TO NEXT 
Definer 



Place "blanks" in 
3 name cells 



NOTE: If name does not occupy all 3 cells the unused will now contain the desired blanks. 




Parameter 



Yes 



No 




Parameter 



Yes 



NAMON 



Move 1 word to 
file block 

(FAREA + 11) 



Set file - name 
definer switch 

(FSNAM) 




NAMTN 
NAMTW 
NAMON 



Move first 3 wd«/ 
1 > file block(FAREA 
+ 11, FAREA + 12, 
FAREA + 13) 



NAMTW 
NAMON 



Move 2 words to 
iile block 

(FAREA + 11, 

(FAREA + 12) 



2.49.02 



2.49.02 




Extract number of 
characters in name 




Yes 



Determine number 
of words in name 




Yes 



Fill remainder of 
incomplete word wit i 
blanks 




Normal return - On to next definer 



2. SO. 01 



Analysis of 
checkpoint deflner 
file card 



CELL DECNT 




/ 



NOPAR 



/ 



Wfxxxx 
tfYYYYY 
No paramete| 
given 



NOTEj 

xxxxxx ■ CARD TYPE 
yyyyyy ■ DEFINER NAME 



Not Charted 



Error routine - 
print error men- 
age 



/DEFER^f 

\3> 



ERROR RETURN - ON TO 
NEXT DEFINER 



2.23.02 



Extract parameter 
(standard or non- 
standard) 




PARAMETER 



NEITHER 



/ 



tPROUT 



Print routine 
Print error message 




File - CJ 
- parameteij 
incorrectly 
given 

«- fRTFI 
{PROUT 



Error retun 



Print 1st card of 
statement 





f 








CKPS j 


cKmir 


Set standard 
checkpoint indi- 
cation (0) into 
file block (FAREA 




Set non-standard 
checkpoint indica- 
tion (1) into file 
block (FAREA + 17) 


,,,„_ J 


> 








Set file - 
checkpoint de- 
flner switch 
(FSCKP) 




Set: file - 
checkpoint 
deftner switch 
(FSCKP) 






















( DEFER \ 
2.23.02 



Normal return - on to next deflner 



2.51.01 



Analyst! of 
record define* 
file card 



CELL DECNT 




/ 



/ 



NOPAR / 
Not charted 



xxxxxx 

yyyyyy 

No para- 
meter giver 



Error routine 

print error 

message 



J DEFER \ 



NOTEi 

xxxxxx = Card type 
yyyyyy* = Definer name 



Error return - On to next definer 



2.23.02 



PARAMETER 



Greater than 12 character! 



fPROUT 



Print routine - 
Print error menage 



File record 

Incorrect 

parameter 



PRTFI 

- Sprout 



12 character 



6 character* 



ONREC,. 



Extract parameter 
(number of logical 
records in file) 



CNVRT 



m w 



i 



RE CTW ^ 
Sxtrac7"first para- 
meter (high order of 
number of logical 
records in file) 



Print lit card of 
ttatement 



CMVRT 



ERROR 



Convert it to 
binary 



ERROR 



NORMAL 



Save number of 
logical records 
In file block 
(FAREA + 16) 



I 



Set file - 
Record definer 
iwitch (FSREC) 




CVTER 



NORMA 



JL.5S.PL 



I 




Convert it to hi*- 
naiy 



Error Return ■ 
On to next de- 
finer 



Not charted 



Error routine print 
error message 



xxxxxx 

YYYYYY 
Illegal 

character 




Scale the converted 
high order by one 
million decimal 
+ lave (SVREC) 

I 



Extract tecond 
parameter (low 
order of number of 
lo(dcal record* in 

iliii 



NORMAL 



NOTEs 



■aiYRT* 



. ..69.01 
Convert it to binary 



xxxxxx = card type 
yyyyyy = definer name 



Normal return - 
On to next definer 



Combine converted 
and scaled high 
order with conver- 
ted low order 



2.52.01 



Analysis of program 
define r - modifica- 
tion card 



CELL DECNT 




/ 



/ 



NOPAR / 



/ 



xxxxxx 

yyyyyy 

fio para- 
meter given 



NOTE: 

xxxxxx = Card type 
yyyyyy M Definer name 



Not charted 



Error Routine 
Print Error Message 



Error return - on to next definer 



^/defer y 

2. 23. 02 



Reset base 
storage cell (PROBS) 
and Ave - ten switch 
(PROFT) to zero 



I 



Extract parameter 
(name of modifica- 
tion) 



Prepare to determine 
modification phase 
by Isolating 3 high 
order char, of para- 
meter ffRgcn 




CELL PROCP 



INVALID 



(PROUT y 



Modificatior 
-program' 
Incorrect 
parameter 



Print routine - 
print error message 




Error return - On to 
next definer 



2. 23. 02 



PROXS 



PROMP 



Place »XS" 
base (0) In base 
storage cell (PROBS 



XS= 



internal 
sort phase 



Place "MP" base 
(10) In base storage 
cell (PROBS) 



>/iP= merge 
phase 



PROFM,, 



Place »FM" 
base (15) in base 
storage cell 
(PROBS) 



i>e{ live- ten switch 
to indicated that 5 
modifications are 
available for speci-1 



FM = final 
merge 

phase 




2.52.02 



2.52.02 



NOTE: 

xxxxxx = card type 
yyyyyy = deflner name 




Error Return - On to next 
deflner 



IR4 



Add modification 



lumber to base and 
save result 

(PROBS) 



I 



\ Set modification 
program definei 
switch 

(MSPRO) 




Normal Return - On to next definer 



2.23.02 



2.53.01 



Analysis of cells 
definer - modi- 
fication card 



( 'ber of core 
l & M M ora und by 
modification 
program ) 



Cell DECNT 




xxxxxx 

myyy 

No para 
meter 



N OPAR • 
Not Charted 



Error Routine 
Print error mess- 
age 




NOTE: 

xxxxxx : 

yyyyyy 



card type 
definer name 



Error Return - On to next definer 



23.02 



Extract parameter 



CNVRT 



1 



gv™* * 



2.69.01 



Convert it to 
binary 



Error 



Normal 



Not Charted 



Error Routine 
Print error message 



xxxxxx 

yyyyyy 
Illegal 

character 



NOTEt 

xxxxxx = card type 
yyyyyy « definer name 




Error Return - On to next defin< 



£L 



Save converted pan 
meter in modifica- 
tion - cell definer 
switch (MSCEL) 




Normal Return - Onto next definer 



2. 23. 02 



2. 54. 01 



Analysis of type 
definer - record 
card 



Cell Decnt 




IOPAR * 
riot cnarted 



Error Routine 
Print error men- 
age 




NOTEi 

xxxxxx ■ card type 
yyyyyy s definer name 



Error Return - On to next definer 



Extract low order 
character of para- 
meter (fixed or 
variable length) 




Parameter 



No 



PROUT 



TIi Only fixed length recordt 
are accepted by this version 
of wit (fixed length version) 



Print Routine - 
Print error m«H- 




JLmn Return - 
L |fc On to next 

definer 



. 23. 02 



Set record - Typa 
definer twitch 
(RSTYP) 



I 



Set type indicator 

for fixed length (0) 

(TVFPV) 




Normal Return - On to next definer 



2.23.02 



2.55.01 



Analysis of length 
define* - record 
card 



Cell Decnt 




/ 



NOPAR / 



ocxxxx 

mm 

Ne parameter 
given 



NOTEi 

xxxxxx ■■ 
yyyyyy ' 



card type 
i definer name 



Ngt Carted 



Error routine 
■J Print error message 




Error Return - on to next definer 



2. 23. 02 



(PROUT 



Print routine - 
print error mess- 
age 




DEFER 
2-B 



*r 



Error Return - on to next definer 



Save number of 
parameters given 
(lengths specified) 
( IENNO) 



Record- 
length too 
many para- 
meters given 



>"ST * 



Extract next para- 
meter (length of 
logical records in 
wwrdt) 



CNVRT 



I 



CVTER 



2. 6?. 91 



Convert it to 
binary 



Error 



Normal 



£. 



Not Charted 



Error routine 
Print error mess- 



xxxxxx 

yyyyyy 

Illegal 

character 




NOTE« 

xxxxxx ■ card type 
yyyyyy ■ definer name 



Error Return - on to next 
/"' definer 



Save converted 
parameter in assoc- 
iated position in 
length table 
ftENTA,4) 



IR4 = Parameter number 




Yes 



Set record - length 
definer switch 
(RSLEN) 



Normal return - on to next definer 




DEFER 
~M 2-D 



2.56.01 



Analysis of field 
de finer - record 
card 



NOTE: 




O- 



xxxxxx= card type 
yyyyyy=* de finer name 



Error Return - On to next deflner 



'Set Bit/character 
indicator twitch 
initially to char- 
acter* (0) (FIEBC) 



o 



lecord Field 

More than 

2<P cont. 

field* given 



Save number of 
parameter* (fields) 



FlEST 



(FIENO) 



Extract next para- 
meter (field of a 
logical record) 



I 



NOTEt Field given in number (#) of bit* (b) of 
character* (c) ligned (*) or unsigned (u) 



Extract next char, 
starting at low 
order G lave remain 




2.56.02 



Parameter 




FIERR 
( PROUT 



Ille gal 



Print routine 
Print error 
message 



Record - 
field- illegal 
parameter 




Error Return - On 
^ ' to next deflner 



2. 23. 02 



FIEUN 

Set signed un- 
ligned twitch 
for thi» para- 
meter, file Id )„ 



FIESN 



FIECH 



IiM ■= present 
parameter count 



Set signed un- 
signe a switch 
for this para- 
meter (field) 

Mgir 



FIEBI 



Set bit/char- 
acter switch 
to characters 



(0) 



(FIEBC) 



/chara- 



Set bit 

ter switch to 
its (not 0) 

(FIEBC) 



Tla 



tEIs 



:haracter back 

five position In 
numeric portion 
of parameter 
(remaining high 

order characters 



CVTER 



/FIBRE \ 



2.56.01 



On to next character 



Not charted 



Error routine 
print error 
message 



Error 



Normal 



/DEFER \ 



iZJ 



2. 23. 0! 

Error Return 
on to next 
deflner 



yyyyyy 

Illegal char- 
acter 



NOTE. 
xxxxxx - card type 

yyyyyy = deflner name 



CNVR3, 

2l9# 



Convert 
engt 



porti 
lengf 
nary 



ri< 



FlfcXF 



rTecoreT™"""'" 
Held when 

BCD mode 
given field 

length must 
be divisabl 
by 6 



2.23.02 



X 

Error return on to 
next definer 



/defer\ 

f 2-B U 



(PROUT / 




Cell FIEBC 



Characters 

Convert to 
number of 
bits 



f 



Print error 
Message 



Save field 
length in length 
table (FIELN, 
4) 




■~>n to record, cont. — 
field calculations 

F1ERE'' 



Set irecord-fielc 
definer switch 
(RSFIE) 



n 

I Yes 



NEPHI 




No 



1-B 



W >*«^2.56.01 
On to next parameter 




Set bit/char- 
acter switch 
to characters 
(FIEBC) 




IR4=present para- 
meter count 

Cell GENPR- 



All 
parameters 
processed 



Binary 



2.57.01 



Calculations for 
record control fields 



e> 



/ FICAL \ 



FICAL 



Clear cell used to 
maintain a running 
count of bib used in 
record by fields 
(field turn) (FLDSM) 




Cell FLDSM 



Calculate position of 
starting bit of this field 
i in word this field starts 
In. (F1LSB.4) 



Calculate the number 
of the wd. this field 
} starts in. NOTEi Wds. 
are numbered sequentia- 
l ord^W^ n8 ° f,CC 



Set initial field 
starting word as word 
1 

(FILSW.4} 



IR4 ■ Present sequential 
field number (1) 



No bits within wd. 1 
have been previously 
associated with a 
field) therefore, let 
field starting bit cell 
to (F1LSB.4) 



FISTA 



1R4 «= Present sequential 
field number (1) 



Calculate the total 
number of bits used 

by this entire field 
and previously used 
portion of starting wd. 



Calculate number of 
wds. in which parts 
of this field will be 
contained 

<FILNW,4) 




* NOTEi IR4 = Present sequential field number 



2. 57.01! 



2.57.02 



f fical\ 



Include this field into 
count of bits used in 
record to this point 
(FLDSM) 



<>k 



Calculate position of 
last bit used within lasi 
word occupied by this 
field (FILPB) 



Calculate oumbei of 
unused bits in last 
word occupied by thU 
field (FIiLB,4)* 



Form a mask (right 
mask) that will con- 
tain a Wt correspond- 
ing to each used posi- 
tion of last word occu- 
pied by this field 
(FILRM, 4* 



Form a mask (left 
mask) that will can- 
tain a bit correspond 
Ing to each position 
of first word occupied 
by this field (FIIXM, 
4) * 



NOTEi This mask will be used to 
extract this field portion 

of last word. 



NOTEi This mask will be used to 

extract this field portion of 
first word. 



Cell 

*Fimw, 4* 



Combine left mask am: 
right mask to form a 
mask that will have a 
bit corresponding to 
positions within the 1 
word that are used by 
this field only. 
(nLLM,4 6FlLRM,4l 




*NOTEi This mask will be used to 
extract entire field from 
within the word 



Process next field 



2.57.01 



♦NOTEi IR4 " Present sequential field nurabei 



2.58.01 



Analysis of 
type deflner 
Delete Card 



/ TYPDEl 




/ 



xxxxxx 

TTTCtt 

No pttnmete 
given 



Not Charted 



Error Routine 
Error Print Mess- 
age 




NOTEi 

xxxxxx=card type 
yyyyyy=deflner name 



Error Return - On to next deflner 



YES 



2. 23. 02 



Extract low 
order character of 
parameter (record 
type to be deleted 



Parameter 




Vrout 



the character an ^> 



NO 



Print Routine - 
Print Error Message 



Delete- 
type in- 
correctly 
specified 




Error Return - On to 
l^"^ next de- 

flner 



2.23.02 



YES 



Set delete - 
Type deflner 
switch (DSTYP) 



NOTE: Only fixed 
length records can 
be dealt with in this 
version of sort (fixed- length 
version) 



Set fixed switch 
(FVTYP) 



S ^N. ^ Normal 

/ DEFER \Y^ 



Return - On to next deflner 



\ 2_D / 
2. 23. 02 



2.S9.01 



Analysis of 
field - delete 
card 




Cell Decnt 

NOPAR 



xxxxxx 

TCVOH 

No parameter 
given 



Not Charted 



Error Routine 
7 ' Print Error Message 




NOTEi 

xxxxxx=card type 
yyyyyy»de finer name 



Error Return - On to next definer 



23.02 



Extract para- 
meter (the numbei 
of the field to be 
deleted) 



CNVRT a. 



CVTER 



Convert It to 
binary 



Error 



Normal 



Save 



dfa 



xxxxxx 

TflHX 

Illegal 
character 



Not Charted 



Error - Routine 
Print Error Mess- 
age 




NOTE* 

xxxxxx«card type 
yyyyyy™(de finer name 



Error Return 



On to next 
da finer 



2.23.02 



conver= 



ted parameter In 
the delete- fie 1 
definer twitch 

(DSF1E) 




Normal Return - On to next definer 



2.60.01 



Analysis of Identi- 
fication deflner - 
delete card 




Cell DECNT 

NOPAR 



yyyyyy 

No parametei 
given 



No 



Not Charted 



Error Routine 
Print error menage 




NOTE i xxxxxx » card type 

yyyyyy * deflner name 



Error Return - On to next deflner 



2.23.02 



Extract flrrt para- 
meter (form of 
char, (a, b, /h) « 
number of bit*, chaf 
or octal # Involved 




PROUT 



Delete - Id- 
mtlficatlon- 

' Mtrameter in- 
, correctly (pa- 
cified (card 

content) 



Print Routine - 
) Mnt Error Menage 




Error Return - On to next define? 



2.23.02 



IDEQC 



IDECH 



Change number of 
octal positions to 

number of bit posi- 
tion* they occupy & 



■ they oc> 



IDEM 



nge number ot 
char, to number of 
bit positions they 
occupy G tave 

(IDELE) 



Clear ldentificatio] > 
table 

(IDETA.4) * 




Save number of bitt 
la field 

(IDELE) 



Store next para- 
meter into next 
available word of 

Identification table 
fIDETA. 4) * 



Clear identification 
table 

(IDETA, 4) * 



2. 60. 02 



/defer\ 

Normal Return - On to. ( ,_n W- 
next deflner /* V J 

2. 23. 02 





1DEXX 



Set delete identi- 
fication deflner 
switch 

(DSIDE) 



* IR4 - Identification table 
pointer 



2.60.02 



IDEAX 



IDEFT 




Extract next para- 
meter (wd. of 
identification) 



IDESD 



-> 



Extract next char. 
of the parameter 
tuning at high 
order 




Parameter char. 

PROUT 



No 



/ 



Print Routine 
Print error message 



Delete 1 dentil 
fication illega 1 
octal char, 
given (card 
content 




Error Return - On to next deflner 



2.23.02 



1DETP 



Change the chair, 
from BCD to its 
proper octal rep- 
resentation 



"OR" the now 
properly positioned 
octal char, into 
the wd. presently 
being filled in the 
Identification 




IR2 ■ Identification Table Pointer 



Normal Return - On to the next deflner 



Yes 



Set delete - idea 
ti fication deflner 
switch (DSIDE) 




*NOTE: Since parameter words in BCD (6 characters per wd) 
are being converted to octal (12 char, per wd), two 
parameteres are required to fill one word of the table. 

IDEON 



Yes 



Prepare to fill 
next word of 
identification 
table. 



2.60.03 



IDEBX 



IDEBT 




Extract next para- 
meter (word of 
identification) 



IDESB 



Extract next char- 
acter of parameiset 
ttarting at high 

order 




Parameter char. 



( pROUT 



§B$HS8} 

char, given 
(card content) 



Mo 



Print Routine - 
Print Error Menage 




Error Return - On to next deflner 



2.23.02 



IDEBP 



Change the char, 
from BCD to Ita 

proper binary 

iJWpWfifBtataiioa 



M OR" the now propel 
ly positioned binary 

character into the 

word being filled in 

the Identification 
table (1DETA.2) 



IR2 « Identification Table Pointer 



IDEBO 




Yee 



Set delete - ldenti 
flcation deflner 
twitch 

(DSIDE) 




Normal Return - On to next deflner 



2.23.02 



*NOTEi Since parameter words in BCD (6 char, per wd. ) are being converted to 
binary (36 character! (bite) per word), 6 parameter* are required to fill 
one word of table . 



IDEBN 



Ye« 



Prepare to fill 
next word of 
identification 
table 



2. 6 J. 01 



Analysis of order 
definer - sort 

card 



{ ORDSO j 



ORDSO 




/ 



CellDECNT NOPAR / 



No 



Not Charted 



Error Routine 
Print error mess- 
age 




NOTE: xxxxxx = card type 

yyyyyy = definer name 



Error Return - On to next definer 



2. 23. 02 



Yes 



^i. 



Extract parameter 
(order of the mergi 



CNVRT>/ 
2.S9.61 



X 



/ 



/ 



CVTER 



yyyyyy 

Illegal 
character 



Convert It to blnar) 



Error 



Normal 



Not Charted 



Error Routine 
Print error message 




NOTE « xxxxxx ■= card type 

yyyyyy = definer name 



rror Return - On to next defin 




Paramete 



Yes 



. ( 



PROUT 



Print Routine 
Print error message 



2.23.02 



No 



X 



Save merge order 
In sort - order de- 
finer switch 
(SSORD) 



N. 



Sort- order 
- merge orde 

too high 



Normal Return - On to next definer 




2.23.02 



2.62,01 



Analysis of &quen< :e 
de finer - sort card 



/sEQSO j 



/ 




Cell DECNT / 

/ — NOPAR • 



/ 



xxxxxx 

vcccct 

No para- 
meter given 



Not Charted 



Error Routine 
Print Error Message 




NOTEi xxxxxx = card type 

yyyyyy ■» definet name 



Error Return - On to next defiuer 



2.23.02 



Extract parameter 
(collating sequence 
to be used) 




NOTEi C =» commercial, EAM, 705 
S - Scientific, 7090 



INVAUD 



Sprout 



.' 



Print Routine - 
Print Error Menage 



Sort-wquancp 
other than 
S or C given 



fiaar 



Error Return - 

©£; * On 1» n«xt de- 

2.23.02 



SEQSS 



Set commercial 
sequence indicator 
(not zero) 
(SESCS) 



Set scientific se- 
quence indicator 
(rero) 

(SESCS) 



J 



Set sort- sequence 
definer switch 
(SSEQ) 




Normal Return - On to next definer 



2. 23. 02 



2.63.01 



Analyst! of file 
deflnet - 
Sort card 



Cell DECNT 




TOPAR / 



Not Charted 



Error Routine 
Print error message 




NOTEi xxxxxx « card type 

yyyyyyy » definer name 



Error Return - On to next definer 



2. 23. 02 



Extract parameter 
(number of the file) 



CVTER 



CNVRT nU 



>.tf?,W 



Convert It to 
binary 



Erro r 



Normal 



.Z. 



/ 



/ 



xxxxxx 

WW." 
Illegal 
character 



Not rhartpd, 



Error Routine 
Print Error Menage 




NOTE: xxxxxx = card type 

yyyyyy m definer name 



Error Return - On to next da- 



£ 



2.23.02 



Sara converted 
parameter la tort 
file definer twitch 
(SSFIL) 



I DEFER \ 



Normal Return - On to next definer 



2. 23. 02 



2.64.01 



Analysii of field 
deflner - sort 
card 



© 



/ 



FffiSO 




Cell DECNT / 

/S NOPAR / 



/ 



Not Charted 



Error Routine 
Print error message 




NOTEi xxxxxx = card type 

yyyyyy ■ deflner name 



Error Return - On to next deflner 



23.02 



TTESS - 



Extract next char- 
acter starting at 
low order of para- 
meter 



Clear ascending 
-descending switch 
(FIEAD) 



F1ESC \f 



NOTEi 

Sort Keys =» Numerical locations of control fields sorting on, 
arranged from high or low order. Suffix "A" indi- 
cates the field Is to be sorted in ascending order, 
"D" indicates descending. 



Extract next para- 
meter (sort key) 



Parameter 



,y 




(PROHT 



INVALID 



numerical 



Print Routine - 
Print error message 



Sort - field 
- other than 
A or D gives 




Error Return 



On to next 
deflner 



2.23.02 



FIESR 



Normal Return - 
on to next deflner 




F IESD \ 

Set switch to indi- 
cate descending 
order (not zero) 
(FIEAD) 



FIESA > , 



X 



rm, 



Set switch to indicate 
ascending order 
(zero) 

(FIEAD) 



Place this char 
back into its 
respective posi- 
tion in numeric 
portion of para- 
meter (remain- 
ing high order 
characters) 



CNVR-df 

2.69.01 



NOTEi 

xxxxxx ■> card type 

yyyyyy ■ deflner nam 



xxxxxx 

ram 

Illegal char- 
acter 



CVTER 



Set sort - 
field deflner 
switch 
(SSFIE) 



"No" 

^--All 
^parameters 
«" (fields) 
yeSv. proce sse J 



> 



5ave ascending 

?r descending 
ndication in" 
ascending - de- 

?RE$M b,e 



FIESX 



Save con-ire rted 
field number in 
field storage 
table (REFST, 4) 



Convert numeric 
portion (field 
(number) to bi 
nary 

Normal | t 




Not Charted 



Error Routine 
Print error mess 

ise. 



1R4 = Field deflner pointer 




2. 23. 02 



2.65.01 



Analysis of 
order definer - 
merge card 




Cell DECNT 



NOPAR / 



Not Charted 



Error Return 
Print error mets- 




NOTEt xxxxxx * card type 

yyyyyy ■»■ definer name 



Error Return • On to next definer 



2.23.01 



Extract parameter 
(order of the 
merge) 



CNVRT\U 



era*. 



/ 



2.«9.< 



Convert It to 
Unary 



Error 



Normal 



Not Charted 



Error Routine 
Print error menage 



Parameter (PROUT 





NOTEi xxxxxx * card type 

yyyyyy - definer mom 



Error Return - On to next definer 



Print Routine 
jj> Print error menage 



"^T 



\ 



Save merge order 
In merge order 
definer twitch 
(MSORD) 



Merge order 
merge orde 
too high 




Normal Return - On to next definer 



2.23.01 



2.66.01 



Analysis of 
sequence deflner 
merge card 




Cell DECNT 



NOPAR 



yyyyyy 

NcTpSrametei 
given 



NOTEt 



xxxxxx ' 

yyyyyy 



card type 
deflner name 



No 



Not Charted 



Error Routine 
Print Error Message 




Error Return - On to next deflner 



2. 23. 02 



Extract parameter 
(collating sequence 
to be used) 



toss. 




NOTE: 

C * Commercial, EAM 705 
S * Scientific, 7090 



INVALID 



fpROUT 



4 



Sequence 
other than S 
or C given 



Print Routine 
Print Error Message 




Error Return - On to 
next deflner 



2.23.02 



SEQMS Ji> 



Set commercial 
sequence Indicator 
(not «er<£) 

(SEMCS) 



Set scientific 
sequence Indicator 
(zero) 

(SEMCS) 



J 



Set sort - sequenc< 
deflner switch 
( MSSEO) 




Normal Return - On to next deflner 



2.23.02 



2.67.01 



Analysis of file 
definer - merge 
card 



Cell DECNT 

NOPAR 




xxxxxx 

y?yyyy 

No pVrimeter 
given 



NOTEi xxxxxx ■ card type 

yyyyyy « definer name 



Not; Charfrd. ; 



Error TRoutine 
Print Error Message 




Error Return - On to next definer 



2. 23. 02 



FILMS 
(PROUT 



Print Routine - 
Print Error Message 



FILST 



V 



Set: Error Switch 
(DEERR) 



Prepare to analyse 
maximum number 
of filet (8) 



\ 



**~ 



Merge- 
file-too 
many para 
meters 



Extract next para- 
meter (number of a 
file) 



CNVRlJ, 



/ 



2.69.01 



Convert It to 
binary 



Error 



Normal 



] 



CYTBR 



xxxxxx 

yyyyyy 

Illegal 
character 



Not Charted 



Error Routine 
Print Error Message 




NOTEt xxxxxx ■ card type 

yyyyyy » definer name 



Error Return - On to next definer 



-xr. R 



2.23.02 



FILXR 



Save converted 
file number In file 
table 

(FILTA, 4) 



1R4 ■ File table pointer 



FILTI 




Yes 



Save number of 
files to be merged in 
merge- file definer 
switch (MSFIL) 




Normal Return - On to next definer 



2. 23. 02 



2.68.01 



Analysis of field 
definer - merge 
card 




Cell DECNT 



NOPAR 




NOTEj xxxxxx " card type 

yyyyyy » definer name 





Not Charted 


No v 


Error Routine 
Print error message 


? 



/DEFER \ 
2.23.02 



Error Return - On to next definer 



F1EMB 



Clear ascending 
-descending switch 
(F1EAD) 



Extract next para- 
mater (merge key) 



FIEMC 



NOTEi Merge key = Numerical locations of control fields merging on, 

arranged from high or low order suffix "A" indicates 
the field It to be treated in ascending order, "D" 
Indicates descending. 



Extract next char- 
acter starting at low 
order of parameter 



Parameter 



PROUT 



Print RouttM - 
Print error message 




Merge field 
rther than A 01 
D given 




Error Return - On to 

Next definer 



Normal return - 
op to next definer 



2.23 




Set switch to indi- 
cate descending 
order (not: zero) 
(HEAD) 



FIEMA^ 



Set switch to indi- 
cate ascending orde 
(zero) 

(HEAD) 



FIEMRO/ 
Place this 



ce. this char 
cter oacR Into 
ts respective 
position in nu- 
meric portion 
of parameter 
(remaining high 
order characters 



NOTEi 

xxxxxx 7S$!** 

yyyyyy -definer 



ffi§&- 



xxxxxx 

yyyyyy 

Illegal 
character 



FIEMX 



Save ascending 
or descending^ 
indication in 
ascending - 



4) 



Save converted, 
field number in 
field number 



table 



REFMT, 4 



to 



.Normal 



Convert nu- 
meric portion 
field number) 



Id numl 
binary 



OVTER 



I Error 




Not Charted 



Error Routine 
Print Routine 
Messag e 



1R4 'field definer pointer 



Error 
Return - 
On to next 



_^> 




2.69.01 



Convert routine 
BCD to binary 



CNVRT 




Save index register! 
(CNVxl, CNVx2, 
CNVx4) 



I 



Initialize Rim word 
(CNADD) 



CNV8 



Ir 



Extract next un- 
converted character 
of BCD number 



# * number 




^lllgyl 






Restore Index 
re gltten 



_1 Error Return via 1, 4 



arm 



Restore Index 
Registers 



Multiply BCD numbe 
by binary equlvalen : 
of decimal power 



V . 

Add to sum of 

previous multiplica 

tlons add save for 

next go round 
fCNADP) 



V 



Normal Return 
via 
2,4 



2.70.01 



Calculations 




CALCU 



Extract month, day 
and year and save 
(Month, Day, Year) 



CNVRT. 



2.69.01 



Conversion routine- 
convert _year to 
binary 



ERROR 



NORMAL 



;. 




Set leap year 
switch equal to 1 
(LEPYR) 



69.01 



Conversion routine- 
convert njonth_ to 
binary 



ERROR 



NORMAL 



i 




Reset leap year 
switch to zero 
(LEPYR) 



CNVRT 



T 



1. 69,01 




Conversion routine- 
convert day to 
binary 


t»V 










2.70.02 



/cALCtA 



2.70.02 



Calculate consec- 
utive day of year 
In binary taking 
leap year switch 

into consideration 



i 



Convert calculatec 
day of year to BCD 
& save (DATE) 



Arrange date wd. 
final format! 
yy b xxx 

(DATE) 



I 



Save date word in 



(CALPR) 



yy ■ 2 low order position* of year 
b - Blank 
xxx = day of year 



CALPR = Calculated Parameters 



PADCL 



** Calculate total words in all control fields** 



Clear 1. Cont. 
field wd. count 
cell (CFWD) 2. 

(RFLCF) 



Extract total 
number of cont. 
fields 



(SAMPR-3) 




XS {I nternal jort phase) 




3.01.01 



Internal sort phase 
main program 




>ave Index register 
4 for return to sort 
monitor 

(XRC) 



Lxtract input record 
length (RL) from 
;ommon location 

RECPR, use to spec- 
ialize wd. ct. of in- 
put command (XSICM I 
F & save (XSRL) 



I 



Extract effective re- 
cord length (ERL) 
from common loca- 
tion (CALPR-8), 

& save A*BKt,T 



Effective record length = the greater of either fixed record length input to phase 1 or phase 2 
plus one for equal option and one for checksum option if specified. 



Extract size of Inte 
nal sort unit (M) 

instructions. 



M = Capacity of internal sort unit in number of records of effective record length (ERL) 



Form M+l & save 
(XSYS2) 



M+l 



Form M-l & save 
(XSY54) 



I 



Extract size of tag 
table (L) G save 

in associated instru- 
ction. 



Form L+l and save 
(XSYSO) 




3. 01. 02 



M-l 



L+l 



3.01.02 



© 



1 



Form -M G »ave 
In associated lmtru 
Ctlon 



-M 



Form UM G mv« 
In cell X5Y5S G 
aa*oc. instruction 



Form L-M 

G Save (XSY53) 



L-M 



Form -(L-M+2) 
G itva In anoc. 
instruction 



-(L-M+2) 



Extract Ratio (L/M) 
from common tceil 
CA1PR-7 G §ave 
(RATIOX) 



L/M 



Form L/M-l G 
save In assoc. in- 
i traction 



L/M-l 



Extract merge ordei 
from common loca- 
tion SAMPR-1 G 
save in cell mort G 
1SIQC Instructions 



if true 



Merge Order 



Form Merge order 
1 TB save (MORT-1) 




Merge Order- 1 



3.01.03 



3.01.03 




Calculate origin of 
operating area abov< 
internal sort phase 
program 




Cell OFTPR-4 



Save addresi calcu- 
lated as origin of Buf 
1 in cell Buf 1 & 
associated instructior. 



Save c«U. address aa 
origin of first merge 
tag table In cell 
XST 6 associated 
instruction 



1 



Calculate location o 
ts last cell +1 6 *ave 
at origin of 2nd merfje 
tag table la cell 
XSTL 6 associated 
Instructions 

T 



Calculate location 
of it* last call -fl & 
nvs In cell X8T2L 
fi associated instru- 
ctions 



Calculate base (high 
end) of sort table 6 
save (XSCYCL 6 
XS2LM) 



Calculate base of 
Raad Table 6 save 
(XSCYCL+1 
XS2L2M) 



Calculate base of 
write table & save 
(XSCYCL + 2 & 
XS2L3M) 




3.01.04 



Calculate size of Buf 1 

(RLxM) 6 location of its last 

:ell +2, save this a* origin of 
ruf 2 in cell Buf 2 6 assoc. 

attraction 



~al. size of Buf 2 (RUM) 
C location of its last cell 

+ 2. 



Locations used 
Indirectly to find 
awSual addresses 



i 



■y^PROORAM 



Bufl - 



g 



Buf 2 =; 



XST_r 



777 7 / / / ///> 

y. 1st Merge Tag Table ' 
// 



XSTL - : 



XST« 



7 / 7 7 7 7 v n 

/ 2nd Merge Tag Table 

0///////// 



XSCYC* 



¥£X = 



HIGH END 
OF COli 



"Ess* 



22ZJ 



:er 1 (Optional) 
// ////// 



£ 



t Buffer i (Optional) , 






MxRL 



MxRL 

T 



'/ nf/ 1 1 //// 



zsswzz 



f / , I / I lit* . I -v 



1 



T 

I 



T~ 
M 



M 




NOTE. 



'ecord Length *Tongest C . F 



3.01.04 




Cal. origin of 
1st usable cell 
above write table 



Extract tbe address 
of word 1 of the 
Initial cent, field 

description area in 



comm< « 



t 



"OR" to the address 
i tag of 2 to allow 
differentiation be- 
tween control fields 
later 



Store the tagged 
iddress of word 1 in 
common, Cell ERAPF 




S» No 



1 



Save the tagged lo- 
cation of the next 
wd. of the c t . des- 
cription area in nex 



IR2 ■ ERAPR cell pointer 



Extract the number 
of words In control 
field 1 




Description area word 2 



Yes 



Increment the # 
of wds. in cont. 
field by 1 to allow 
for creation of 

sign word 



Save the number oi' 
words in control 
field 1 in cell WDC 
Fl and assoc. instru- 
ction 



"Ijetermine numoer 
of cont. fields re- 



NOTEi "XSEQLS" routine 

used to compare control 
fields other than 1st if 
1st are equal. 



xgaL 



)etermine whether 
ascending or .de- 
scending sort 6 

specialize assoc. in 
structions according- 
ly 




Logical 



XS003 



gebraic 



TnitiaJize routines 
involving compari 
cons for algebraic 
compares 



E SRTR Jfrfr 



Determine If cont. 

fl. 
or 
sit ve 

u £ s P&pT lne 




Ascending 



scending 



involving comrjari- 
scns for descending 
sequence handling 



X 



004 



I 



Calculate base of 
area to be used to 
retain extracted 
words of cont. fleli 



Trffifer to Pg, 

* 



3.01.03 



Calculate base cT 
area to be used tc 

wmHss^Cwi 

above 

(XSPRD) 



to 

c. 



Calculate bases of 
areas to be used to 

S.^eWStLr 
1st for "XS 



Calculate origin 
of "G" area 

(XSG) 




XS 

3T0TT05 



3. 01. 05 




XS 



SHIFT 
CALC 



Calculate the limit- 
ing power for the 
binary search and 
save (XSBSZ) 



NOTE: The limiting power Is equal to 
the power of 2 of the number 
of cells to be searched later 
in this phase. 



I 



Calculate number 
of words required 
per record In "G" 

control field) C savi 
(XSUN1T) 



(hop over its cont. 

field) G save(XSGl) 

yggf command 



XSY21 



i 



Store in origin +M 
cell of first marge 
tag tabic the output 
command (XSOCM) > 

'" " St*Bt ntin « 



f 



Modify output comrr 
and address to spec- 
ify origin of next 
successive record in 
"G" 



XS005 



Store in low order 
cell (origin) of sort, 
readjwrite tag table 
area the updated 
output command 



Modify output comm] 
and address to spec!' 
fy origin of next 
successive record in 
»C" 




Org ht Merge 



Org+: 



TZZZBZZZZ 



L-M) 




XSY21 



Store it In next high 
»rder empty cell of 

first merg;e tag 

table 




XS00S 



Store it in next high 
order empty cell of 
sort, read or write 
tag table 



3.01.06 



3. 01. 06 




Find the base (high 
order) address of the 
padding record gen* 
erated by edit phase 



NOTE» Origin of high padding 

record given in common (CALPR-20) 



XS051 ,, 



Store first word of 
padding record in 
first word of first 
record ia "C" 




Store next word of 
padding record in 
next word of this 
record in "G" 



-* 



Hop over extracted 
control field area 
before next record 
inO 




No 



XS0S1 

Store first word of" 
padding record in 
first word of next 
record in "G" 



Yes 



Prepare to duplica- 
te control field of 
[list padding record 
in extracted control 
field area before the 
record 



NOTEi Setting up calling sequence for extract routine 




3.01.07 




XS 



XS053 
XTR 



3,02.01 



Extract subroutine- 
extract contiolfield 



Determine base 
address in "G" 
of control field ex- 
tracted from first 
record by extract 
routine 



XS05S 



Store the 1st word of 
the first cont. field 
into the 1st cell of 
extracted cont. field 
area prior to 2nd rec 
ord in "G" 




Store next word of 
1st control field in 
the next cell of ex- 
tracted cont. field 
area of this record 



NOTEs Duplicating first extracted padding control field in 
extracted control field area of all padding records. 



XS056 




Store 1st wd. of 1st 

cont. field into the 

wist cell of the extrac- 

~7 ted cont. field area 

?rior to the next rec- 

r ord in »G" 



3. 01. 08 



3.01.08 



XTR ^-x^ 






3.D2.01 




Store low padding 
record G Its ex- 
tracted cont, field 
into "record last 
write" area 


extract 1st cont. 
field of low padding 
record 





OPCKPT 
SOP 



Open checkpoint 
G unreadable re- 
cords filet 



-J 



XSOPIT 




SOP 



Open Internal tort 
phase input file 



XSOPOT 



±_ 



Set calling sequenc 
word 1 minus 



(RAWPR) 



Store number of nex 

unopened internal 

sort output file In 
decrement of call 



NOTB Number of output filet to be opened it equal to the merge order. 




NOTEi IOBS- Buffer option 
deilred 

IOSS - Non-buffer 



Set overflow indl- 
:ation (4) into call 
ing sequence word 1 
address (RAWPR) 



Extract number of 
tape records to 
skip (OVEPR) & 
store in callingseq 




Set read indi 
cation (1) into call- 
ing sequence word 
1 addren (RAWPR) 



Specialise "FXMOV 
calling sequence 
wd. address to 
specify origin of 



« 



a word as 
wsi 



dr " Address of 
Buffer 1 origin 



Store formed wd. 
into: 1. Calling seq- 

3. Assoc. Instruc- 
ctions. 



-* 



S 



010 



wd. 



Specialize" 
calling seq, 
decrement to , 
specify origin of 
sort tag table 

(XS070) 



JOBS 



T 



Read into 1st 
Buffer filling 



" ~\*' A J 

37WT09 



3.01.09 



XSRD 




Set Read indication 
(1) into calling seq- 
uence word 1 address 

(RAWPR) 



Form a word as 
follows I 

Adr=Address of sort 
itag table origin 



Store formed .word 
into: I. Read base 
cell (ERAPR-10) 

2. Second calling 
sequence word 

[RAWPR-1) 



loss 



l Read"M" records" 
Into "G" via sort 
tag table 




3. 01. 10 



Increment count 
of "M" block* read 
by 1 




3. 01. 10 




3. 01. 10 



XSY10 



Save RATIO In 
cell (MTY1) 



Indicate that L/M 
blocks have been 
read 



Save count of "m" 
blocks read 
(MTY1) 



Cell RAWPR-3 




Increment number 
read cell by 1 

(NUMRD) 



:ell OPTPR-4 

Altl 




Prepare to fill aval! 
buffer 



Set read Indica- 
tion (1) into calling 
sequence wd. 1 
address 
fRAWPRl 



Set read Indication 
(1) into calling seq- 
uence wd. 1 addr. 

(RAWPR) 



XS012 



I 



Form a word as 

follows t A dr- origin 
of read tag table 



I 



JtorSTormed wa,"" 
Into: 1. 2nd wd. of 
calling seq. 



(RAWPR- 1) 



IOSS 



T 



FXMOV 



Read "M" records 
into "G" via read 
tag table 



Moved words from 
buffer filled by 

last read to "G" 
Utt. 



Form a wd. as 
followsi Prefix m 1 
Adr=orlgin of 
available buffer 



Store formed wd. 
jntoiT. Zndwd. 
of calling seq. (RA 
WPR-1) Z. Read 
base cell (ERAPR- 
10) 



I 



Invert alternator 
to point to next 
buffer for next read 



IOBS 



Read "M" records 
Into available 
buffer 



Cell OPTPR-4 



TSTMV 



Yes 




3.M.U 




0- 



Cell OPTPR-3 
/ EQUALS 



.MODIFICATIONS XSM01 & XSM02 




j:m optpr-i cksum 




XSY40 

Prepare to extract 
control fields from 
record* assoc. with 
sort tag table 



WW48- 
,XTR , 



3.02.01 



Extract control 
fields 



XSY41 



-MODIFICATION XSM03 



Prepare to sort rec- 
ords assoc. with 
sort tsg table 



XSY43 

SORT 



I 



3.03.01 



Sift sort routine 



XS009 



Determine origin 
ible that presently 



ontains the ta 

S5ock IT save 
nttnirHnii 



s to 
sorteB 
assist . 



W^ 



ns traction 
,4), to be 

lsed for merge conn- 

garison. to operate 
n the present mergi 
tag table content. 



X= The base of the merge tag table that presently contains the 
tags to be merged with sorted block. 




3.01.12 



3.01.12 




Determine the loca- 
tion of the sort tabl( 
base & save in aisoc 
instructions 



slni 



Initialize lnstructi6B 
addresses that have 
jeen modified by a 
previous pass throng! 
merge operation 



Extract location of 
record In "G" speci- 
fied by address of 1st 
:ell 01 sort tag table 
G lave in assoc. in- 

itruction 



XSEG 



Determine number 
of cells to be search 
ed 6 save in assoc. 
instructions 




NOTE! One part search is sufficient in no empty C ana exists or if 
it exists but begins at origin of merge table. 



Determine number oi 

cells of present 

^ aerge table to be 

searched on first pas: 



Set upper and 
lower bounds 



NOTEi Upper Bound=Position of highest cell + 1 

to search in respect to origin of merge table 

Lower Bound ■ Position of lowest cell +1 to search in 

respect to origin of merge table 



Save location to be 
used as reference 
for return, if use of 
equals subroutine 
necessitated 

(XSSTL) 



T 



Set return indicator 
in equals subroutine 

to non-zero to spec! 
fy return to otffer 

■ than 2 way merge 

(RT1NP) 





Extract limiting 
power of binary 
search 



3.01.13 



Determine position 
in respect to origiE: 
of m erge table, 
of next cell to com 
pare 








Increment by 1 lo- 
cation of last cell 
located In merge 
table 



Save location of 
last ceulocated ii 
merge table 




XSS02 



Determine position 

in respect to origin 

of merge table of 

next lower order 

cell to compare 



XSS04 



'UeleftnfBejbSsiHorll 
in respect to ori- 
^n o^merge ubl 

order ce 
pare 



m 



er 

com 




XS 
13-EJ 

3.01.13 



NOTE! The Biext cell will be the next lower power of 2 locations 
higher or lower in respect to the present cell. 



tompane current . . 
wordorcont. field 
1 of record speclfie 

cell of sort table 
(S) 



1/xsdflT 

spare to ci 



X S071/XS' 
Trepare lo cAnipaW 
next word of 1st 



control field 
(words other than 

i!g g i'c'5i c yr p ' tred 




Yes 




. 01. 13 



YOUTI 



. 01. 13 




ACOUTI 



3.05.01 



Equal subroutine 
:ompare other cont. 
fields 



01.13 




1. Save location to 
be used as ret. for 
return if use of 
equals subroutine . 
necessitate d/XSSTL 
2. Reset return m- 
dicatbr(RTIND) in 
equals subroutine tc 



One 

■rmined sufficient ^> NOTE: 0ne P art «•»«* *« considered 

'^ -""" sufficient at this point If beginning 
of desired merge area has been 
located during 1st pass 





3.01.14 



Lower Bound 
(First Pass) 



Upper Bound 
(First pass) 

Lower Bound 
(Second Pass) 



4-* Desired Position 



Upper Bound 
(Second pass) 



Determine new 
Lower Bound 




On to second part of binary search 



3.01.12 



Yes 



Calculate location 
• >f 1st tag of area of 
present merge table 
to be merged with 
sort table. 




See Case 1 



See Case 1 



XS031 



Yes 



Indicate that the 
empty tag area has 
been bypassed by by 
passing previous test 



XS033 



Bypass (hop over) 
blank tags within 
_w area being moved in 
present; merge table 




at beginning 
pi, present merge 
table move the next 



Starting 
^f.oresent mi 



unmoved tag to nex 
available cell of 
alternate table 



Case 1 - Merge Tag Table 



Tags to be move 

-it 




t 
Empty 



tags 



Tags to be rriovec 

-4 

Tags for merge 



■/////// I 



irmrm 



See Case 1 



Case 2 - Present Merge Tab le 



See Case 2 



Does ^\ • 
s- next unmoved -^ 
cell of present mergo, No 

^ traKlrt rnntaln arw^*^ 



tags to be 
moved 




mm 




3.01.15 



3.01.15 




Bypass merge hop 
over gate test 
(XS023) 



XS029B 




Case 3 - Alternate Table 



Prepare to move re 
maiaing sequential 
locations of sort Ubljs 
to remaining se- 
quential locations of 
tltemate merge tablt 



XS032 



typass (hop over) 
empty tags in preeen 
merge tag table 



.XSMRG 



«!.«- 



^ Tags 
from present 
table 1 



SO! 




TrHrfiii* 



Extract new lowest 
unmerged tag from 
sort table 



I 



.© 



Stone it in next 
available cell of 

alternate merge 

table 



Alternat 
ierge table full" s ». SN Yes 




See Case 3 




All tags of n^ Yes 
^ort table merged ^ > ■ 



Prepare to move 
remaining tags of 
present merge table 

to alternate table 




3.01.16 



3.01.16 




3.01.16 



Save location ol 
1st instruction of 
compare lopp--l to 
be used asref. for 
"■— oi 

iroutine 



XS09 




moving 



/XS095 



t 



Prepare to cpmpa 
neJct wtl. of 1st 

cont. field (was. 
other than 1st are 
compared logically 



Merging 



records specified b 
ipprpprTate sort tag 
(if t \inmoved tajf 

°t(gie se ^r er8e 




XSEQLS 




3.05.U1 



Equal subroutine 
compare other 
cont. fields 



Yes V 




Move next unmoved 
tag of present merge 
table to next avail 
cell of alternate 
merge table 



Case 4 - Prese nt Tabic 
To mo U / 

To merge \\V\ 



±~ 




To movej^ f//// 




Enipiy 



Case S - Present Table 



To Move 



To Merge 

Empt£_ 
To Merfe 



WM 



To Move 



ss$; 



yyy^ 




n 



Merging 



Note i See Case 4 

Bypass merge hop- 
over gate test pre- 
pare to enter move 

routine (XSMOV) di 
rectly 



NOTEi See C ase S 

Bypass merge hop 
over gate test - 
prepare to enter 
merge (XS024) 
routine directly 



Bypass (hopover) 
empty tags in pre- 
sent merge tag 
table 




3. 01. 17 



MDUN 
MDON 




Swap function of the 
nerge tag tablet 

making the present 
the alternate for the 
xt merge paw & 




NOTE: "Blank tag«" refer to 
*f padding recordg in "G " 

Reduce by 1 count 
it M sized blocks 



X5Y23 
XSY2S 



necessary to fill 
merge tag table 



Find location of 
first blank tag In 
present merge table 
and save In assocla 
ted instruction* 



XSCYCS 



3 04.01 

Cycle sort, read 

H& write tag tables 



3.01.09 



XSOUTP 



Extract & save loca- 
tion of last record in 
"G" previously 
written. (XSCPB+1* 



Prepare to binary 
search merge table 
to locate first tag 
associated with bloc t 
to be written 



MOTEs Tills tag will point to the first record 
that falls in sequence with the last 
record written. 



©/•Out to binary search 



3,01.12 




Return from binary search 



3.01.18 



3.01.18 




3.01.21 



XSQ43 



Determine actual 
address of first tag 
to be used for out- 
put 



Save this In pertinent 
instructions! 1. to 
allow bypassing this 

area of merge table 

as the empty tag 

area during next 

merge pass(XSEG) 

2, To move tags to 
write table for output 
oper. (XSY04-1) 



XSCYCS * 



a.rvt ffl 



Cycle routine-cycle I 

sort, read & write tablet 
move output tags to 
write table 



Determine loc. of last 
word + 1 of last record 
to be written & save 
(XS050) 



WRDLY 




Cell RAWPR-4 



NOTEi RL = Record Length ERL » Effective Record Length 



XS046 



Store RL into de- 
crements of all tags 
of new read table 



XS047 



Store ERL into de- 
crements of all tags 
of new write table 



Cell RAWPR-5 




3.01.19 



TAPESW 




3.01.19 



Store write indicator 
(-1) in first wd. addr. 

of IO calling seq. 
(RAWPR) 



Extract current 
merge file number 

& store in 1st wd. 
decrement of IO 
calling seq. (RAWPF ) 

& (MRT3) 



NOTE: File numbers run 1 thru 16 decimal 



Store no. of records 
to be written in de- 
crement of 2nd wd. a 
IO calling seq. (RA 
WPR-1) & decrement 
"system write base 
cell (ERAPR-11) 



Calculate the no. 
of words to be 
written & save in 

'("pJ^PR^f Cel1 



XSY07 



i 



Extract org. addr. 
of write tag list & 
save in addr . of 
2nd wd. of IO call- 
ing seq. (RAWPR- 1) 

ciiiMNr 



I 



Initialize write 
table fix test cell 
by resetting to 

(CNTPR-12) 



NOTEi RAWPR- 8 will be written as the 2nd word 

of the merge block 




3.01.20 




Cell CNTPR-12 



WTFIX 



Yes 



>| Write table FIX 
Routine 



Modification XSM04 



XSWR 
IO 



IO routine Initiate 
writing 



1 Update count of 
words written 

(NUMWR) 



Det. loc. of last 
wd. of last rec. 
written in temp. 



XS050 



J 



Move all' wds. ex- 
tracted cont. field 

included, of last 
record written from 
G to "last write" 

area 



NOTE: IOBS * Buffer option desired 
lOSS « Non- Buffered 



NOTEj Last record written is placed in this temporary area to 
be referred to during search for next write. 



NOTE:: See Figure, Pg. 3.01.03 




On to next cycle 




3.01.21 



Set sequence break 
Indicator 

(SEQBR) 



XSENDG r 



Increment count of 
sequences generated 
this phase by 1 
(count) 



XSY01 



Store low padding 
into "last write" 
area (see fig. pg. 
3.01.03) 



NOTEj Since this area is used for comparison during binary 
search for output block the first record represented 
by the first tag of the merge table will be selected 
as the first record of the new sequence. 




Yet 

► 



XSYQ2 



Begin a new pass 

by preparing to 

write next seq. on 
low order (first) 
file 



Prepare to write 
next seq. on next 
highest order 
file 




3.01.17 



3.01.22 



XSY61 



XSY62 



Place EOT file at 
highest order loca- 
tion above other fi lei 



NOTE: This will allow normal progression 
from one file to next sequential 
file at new sequence* are generated 




MTY 



Prevent initiating 
further input oper- 
ations by substitut- 
ng entry to EOF 
routine for entry to 
read routine 



3.01.23 



Allow output oper- 
itions to occur if the 
input is extremely 
small & "ratio" nu 
mber oT records, ha 



no i 



%\ 



records, I 
een read 




3.01.23 



3.01.23 



SCL 




MTY1 



WEOF 
XSCKPT 
CKPT 



XSCLIT 



Ye« 



Checkpoint routine 
write checkpoint 

of internal sort 

phase 



Set close routine 

calling sequence 
word to zero 
(RAWPR) 



Close routine- 
Close internal 
sort input file 



X SCLOT J 

Set close routine 



J 



calling seq. wd. as 
follows: 1. sign 

minus 2. decremen 
file numberfRAW 
, PR) . 



Find base of new 
sort table G save 
in assoc. instructiot 
G extract routine 
calling seq. wd. 



MTY2 



1 



J 



NOTEt On first pass through EOF routine, new 

sort table was formerly the old read table 
which was about to be filled when end of 
file was encountered. It is the 1st, therefore, 
to contain blank tags which will eventually 
point to padding records in "G'l On sub- 
sequent passes, the new sort table will 
similarly contain blank tags as no additional 
information will be read. 



SCL 



Close routine - lilu: 
next internal sort 
output file 



m n .« 



Determine 

of new sort _. 

save, in sort routine 
calling seq. wd. 

(XS009A-1) 



TSW 



iS^ 



aHoir 



ine lc 
of 1st. Wi 
of record assoc, witji 
next unprocessed , . 

Jotfor-ifMl^ 





CellOPTPR-2 



this is the 

end of inter- 
nal sort 



Print routine 
print completion 
message 



Switch input C out- 
put channels for 
next phase 
(CHAPR-2 G 
CHAPR-3) 



Calculate total § 
of records, written 
by Internal sort 
phase & save 

(CNTPR) 



SiSYW) 



No 



Modiiy routine, tnat 
determines whether 
or not locafed. otftpu t 
block onjun jn 

merge table will 

groduce a large 
ough rec. (M size), 
to take prescence 
of blank tagis into 
consideration 



XS059 
XTR 



3.02.01 



Extract cont. 

fields of records 
assoc. .with new 
sort table 




XRC 



Restore index regi- 
ster 4 




Restore index 
register 4 



01.11 



Return 'to sort monitor 



k 



eturn to sort monitor 
4,4 



3.02.01 



Extract routine - 
extract control field > 
from records 



TSX XTR, 4 

PZE TAGUST,,No. of records 

TAGIJST = Base of table containing tags referring to records 
from which control fields are to be extracted. 
Mo. ot records =* number of records from which 
to extract control fields 




XTR 



Save index register: 

(XTXRi, xtxr::, 

XTXR4) 



Extract the number 

of the control field 

being operated on 



O 



Extract the number 
of words occupied 
by the control field 



XT05 



XTOSA 




Determine the # 
of records to operate 
on and the location 
in "G" of the fiist 



Determine location 
in "G" of origin of 
extracted control 
field 



XTOff 



1 



Yes 



XT07 

■ XT05A 

* Determine the lo- 
cation of the origin 
^ at the temp, storage 

< rea for the extracted 
cont. field 



NOTEi Extracted control field is placed Id 

cells immediately preceding the record. 



Determine the lcca- 
in "G", of the 
last word + 1 of the 
control field before 
extraction. 



XTO0 



YE 



i_ 



xtritc ' t ' tHe ' first "" 
word of the control 
field 




3.02.02 



3.02.02 



/xTR A 



Using left mask, 
mask out portion of 
first wd. used by this 
cont. field & save 

CXTEMP) 



Control field description word 2 




Determine the lo- 

Sation in " G" of 
le next record to 
be processed 




3.02.01 



XTXR1 



Restore index reg- 
isters (XTXR1, XTX- 
R2, XTXR4) 



ave loca 

tion ctr. for 

tracing 
fGENPR-5, 




3.02.03 



3.02.03 



Cont. field des c ription word 2 




XTSB 



Position this cont. 

field portion of 1st 
word to the left 
until starting bit 
appears in sign of 
word 




Store the result in 
the first cell d the 
extracted cont. 
field area 


J 




Skip the first cell 
of the extracted con- 
trol field area 



I 



Store this Control 

field portion of 1st 

word in next cell 

of jextracted cont- 
rol Held area 




Extract this cont. 

field portion of last 
word, right justify 
& savefXTEN) 



T 



E tract the low 
order char, of re- 
positioned portion 
of cont. field 



3.02.02 




JQ1_ 



Prepare to indicate 
a positive sign by 
storing zeros in 1st 
wd. of extracted 
cont. field area 



XTG 



Prepare to indicate 

a negative sign 
1 by storing an 
"\CE" in 1st. wd. 
of extracted cont. 
field 



_[* 



XtERR 
(PROUT 



XTS2 




Remove zone over- 
punch from low or- 
der char, of C.F. 
last wd. and store 
in last cell of ex- 
tracted cont. field 
area 



Store "zero" AT 
"MZE" into fiitt 
wd. of extracted 

cont. field area 



(Illegal, 
signed BCD 
char, should 
not proceed 



. 



RESTAR 



Restart routine 



Print error message 



(PAUSE 




Print and Halt 

(operator action 
1 pause) 



3. 03. 01 



Sift Sort Routine 



TSX SORT 4 

PZE Origin of sort table, , sue of 

sort table 







/ Sort \ 



Sort 



SORT 



i 



Save index registers 
1,2,4 



(XI, X2, X4) 

cz 



j_ 



Extract beginning^ 
of sort table from 
calling seq. add]* 
6 save in assoc. 
instructions 



I 




1. Save location tc 
be used as referenci 
for return if use of 
equaTs .JuH«H ? g ffis 

nf"" " 



:.cessi^atec 

tori 
in equals fubroutrt 



LV 2. Reset 
aaicatprfRT 

^.pon-zejJO indi- 

iajfgl-P ^-way 



Extract size iM) of „ 
sort table from call 
ing seq. decrement 

and save in assoc. 
instructions 



1 



Form M-l and save 
in assoc. instructior. 



I 



Initialize instruction 

(JGTK)addr. 
changed on exit frojn 
last ref. to sort 

routine 



IN ITF.P 



I 



Calculate incremen 
to be used to step 
through sort table 
}n fonowinc pass 

SMI & assoc. in- 
structions 



NOTE* 




This increment indicates the number of cells 
separation between the locations of the sort 
table tags to be used for comparisons on next 
pass (Example: See Sort 3, the increment on first 
pass = 3, on second = 1) 



Modify instruction 
(J GT K) addr. to 
exit from sort rou- 
tine at the end of 
following pass 



[ SORT } 



3.03.02 



TXIA2 



1 



NOTE: Location of higher order cell = origin of sort table + increment 



gompare of next pai s 
save in assoc. 
instructions 



TX1MM 



NOTE: Number of compares needed ={M-1) - (Increment) 



0- 



CaJ. number of 7 
compares required 
during next pass & 
save in assoc. in- 
struction 



SORLUP' 



Update pointer to 

specialize compare 

loop instructions 

to locations of next 



3 I P T Y3 — 

KYLWRL 

KYUPRl 



NOTE: Bear in mind that tag addresses point to records which contain 
control fields that are actually compared. Also that only the 
tags are moved as result of this comparison 

No 



KYUPJ 
CYLWR3" 
KYLWR2 
KYUPR3 



Exchange tags 
used for comparisot 



SIFTYN 




NOTE: Cannot go back beyond 
origin of table 



TESTMM 



*cell 

comp. at origin 
of sort tag 
table 




SORTEX 



Restore index regi- 
sters 1, 2, 4 
(XI, X2, X4) 




ave loca- 
on counter 
for tracini 



(GENPR 



ing 

-sl 



XSM 



.No 



Reset pointer to 
specialize compare 
loop instructions to 

cells of tag table, 
used for comparisoi 
prior to last 



NOTE: 1st 



= Com. 

in table 
= Cont. 



Return to main program 
via 
2,4 



field of record assoc. with lower order 
field of record assoc. with higher order tag 



in tabl, 



EXAMPLE 



"SFTT 



XXT 



SORT TAG TAME 





o© |> 

9 




2nd Pass 



\ 
2050 

2051 
2052 

2053 
2054 
2055 
2056 
2057 
2060 
2061 



I-IOSPM00.1.2 



(3) 
1QSP 3102, 1, 2 



IOSP 3 



ik 



hi 



(2) 
IOSP 3106. 1. 2 



IOSP 3110, 1, 2 



0) 
IOSP 3112. 1. 2 



(5) 
IOSP 3114, 1, 2 



(5) 
IOSP 3116, 1, 2 



<3) 
IOSP 3120,1,2 



(7) 
IOSP 3122, 1, 2 



<— initial - 



^ (2) 



(«) 

-i P SP 3100. 1.2 



(«) 
IOSP 3100, 1, 2 






M 



IOSP 3102, 1, -8- 



-»sr 



310 4 ,1,1 



(5) 
IOSP 311 4 , 1,2 - 



4S 



IO S P 3110, 1, 2- 



(1) 



IOSP 311 2^2- 



(«) 
IOSP 3100, 1,2 



(S) 
IOSP 311 6 , 1, 2 - 



(3) 
IOSP3 12%i7i 



(7) 
IOSP 3122, 1,2 



.After . 
1st paw 



B3SpSi04,l,2 



SP 310 4 , 1, i 



»SP 



J05J 1 



4 i6a, i, < 



IOSP 3110, 1, 2 



(S) 

PS ? 3114, 1,2 



(S) 
J OSP 3114, 1,2 



(5) 
IOSP 311 6 , 1, 2 



(6) 
IOSP 3100, 1, 2 



IOSP 3100, 1, 2 



tesp 



310 6 , 1, i 



<1> 

K > s p a m v i, 2 



(J) 

IOSP 3112, 1, 2 - 



K*P 



& 



lT2- 



(3) 



i©SP 



3120,1,1 



iosp 3: 



lae 



20, 1, 2 



K>SP 



9k, i,: 



IOSP 3106, 1, 2 



(3) 
IOSP 3102, 1, 2 



\ -i 



IOSP 3110, 1,2 



IOSP 3110, 1,2 



(S) 
IOSP 3114, 1,2 



(S) 
IOSP 3116, 1, 2 



— 7U 

IOSP 3104, 1, 2 



IOSP' 



<3b, 



1,2 



(2> 
IOSP 3106, 1,2 



(3) 
IOSP 3102, 1, 2 






IOSP 3120, 1, 2 



(4) 
K5SP 3110, 1, 2 



(5) 
IOSP 3114, 1, 2 



(5) 
IOSP 3116, 1, 2 

<*) 

IOSP 3100, 1, 2 



— rn — 

IOSP 3122, 1, 2 



rass Final 



The above illustrates the "sift" sorting process used in the 7090 Sort System. For purposes of simplification a logical as centtin g 
sort of one word records and an "M" of ten words was assumed. In like manner the sort table was assumed to begin at location 
2050. Two passes are required to complete the sort. The sequence of the comparisons within each pass is given at the left side 
of the page. The large chart points out the exchange of tags resulting from the comparisons. The content of the extracted 
control field of the record is "G" to be sorted is shown to the right. 



o 
w 



© 



4L 






a 






:r.,z 


3 






£±j4 


1 






£lL5 


2 






suo 


4 






3112 


1 






3114 


5 






3116 


5 






3120 


3 






3122 


7 








3. 04. 01 



Cycle Subroutine 



X8CYCS 




Save IR4 end IR2 
(XS048A end XS048B) 



I 



Extract Location of 
old tort table bate from 
cellXSCYCL 



Extract Location of old 
read table bate from 
cell XSCYCL+1 end store 
as new tort table bate in 
cell XSCYCL 

XSY06 



calling seq. to point 
to origin of old read 
(new tort) tag table 
FXS070) alto use it to 
initialize read base cell 
(ERAPR-10) 



Extract location of old' 
write table base from 

cell XSCYCL+2 and 
store at new read table 
»ase in cell XSCYCL+1 

6 astoc, Instructions 



Store location of old 
tort table bate at new 
write table bate in cell 
KSCYCL+ Z and astoc. 
dj mictions 



XSY04 



I 



Determine base address 
of segment of merge 
tag table to be written 
and save (XS044) 



NOTEi The contents of a buffer, specified later, 

will be moved to cells in "C" specified by 
these tag addresses. 




3.04.02 



3.04.02 




Cell OPTPR-4 



Yes 



Move the tags from the 
segment mi the merge 
tag table to be written 
to the new write tag 
table 



Specialize address of 
"FXMOV" subroutine 
calling sequence to 
point to origin of next 

buffer to be moved to 
"C" (XS070) 



Save 

Address of 
First word in "G" of 
t >*cord written 



juans} 1 



XS04S 



Restore index registers 
4 & 2 (XS048A & 
XS048B) 



r Save loc% J 

Uon ctr. to 

tracing 

(GENPR-5) 



s fair 



Return via, 1, 4 



3.05.01 



Subroutine tor equals 
returns for all 
compare loops 




XSEQLS 



i Save Index regi- 
ster* 2, 4 



X 



Extract addresses 

of 1st & 2nd records 
In equals compariso i 
& save (T16T2) r 



TIET2 "f 



Increment count of 

control fields com- 
pared by 1 

(XSCFX) 





' XSEQLS ' 



3.05.03 



Determine position 



of beginning of 
current cone, field 
description within 
description area » 

save (CCF) 



Extract wd. count 
of current cont. 
field 



pare 



Extract type of com- 

» logical 

1 ■» algebraic 
2= signed BCD 




8.05.02 




No 



ncrement type of 
:oinpare equivalents 

^ 3 S ■ log. desc. 

4 " algebraic 
5-ilgned_BCCf{£»c 



SAVX type of com- 
pare (CFTYPE) 



XTR <> 



S. 02. 01 



Extract currant 
control field 




cell CFTYPE 



gncdBCQj 




3.05.02 



3.05.02 



3. 05. 02 



3.05.02 



3. OS. 02 



3.05.02 



3.05.03 




Cell RTIND 



Is 
feq. of tint 
coat, field ascend- *> 
SJ — , or descend" -* 
log 

Ascending 



to two-way merge ^ 



Yes 

ize curr- 




ent control field 
count cell by re- 
setting to zero 

(ccf S(xscyx) 



am 









3.05 


03 


Cell RTIND 




Yes 




>*> 


-*' 








TOUT ^ * ( 




Reinitialize curr- 
ent control field 






count cell by re- 








setting to zero 
(CCFG X£CFX} 



Restore Index 
Registers 
264 



Return to point 
of exit from main 
program +1 via ACOUTl 



fig I 



Restore Index 
Registers 
264 



T 



Return to point 
of exit from main 
program -1 via YOITO 



4.01.01 



Merge Phase - 
Main Program 



MROO 




tot phase Indicator 
cell for Phase 2 

(PHIND) 



Form a Wd: Adr 



nrigin of lit sort / 
merge control field , 
description ana Dec s 
'control 






ag 



NOTE* 1R2 will be used to differentiate 
between control fields 



Store it In next em- 
pty control field in- 
formation cell 
(CF1NFO, 1) 



IR1 * Control field information 
cell pointer 



Modify the addresT 
to point to the next 
wd. of sort/merge 
control field des- 
cription area 




Place a tag of 1 in 
:ommunicatlon wd. 
with extract routine 

(RCWD) 




4.01.02 



4.01.02 




Control field Info, 
word 1 - sign 



ascendin 



1 



Set compare indl- 

cator cell to Zero 

(CPINDJh 



(Logical Ascending) 



v Set compare indi- 
cator cell to two 

(CPIND) 



Algebraic 
ascend- 
ing) 



logical descending) 



Set compare indica- 
tor cell to one 

(CPIND) 



cator eel 



i three 



(CPIND) 



MR400 



F 



(Algebraic de- 
scending) 



*- 



NOTEi Cell CPIND! 

" Logical ascending 

1 *> Logical descending 

2 «■ Algebraic ascend- 

ing 

3 •= Algebraic descend- 

ing 



Transfer internal 
tort phase record 
count to merge phase 
record count 

(MRCT) 



Determine location 
of the 1st wd. of the 

record of 1st merge 
block 



I 



Store table origin 
calculated in the 

next available cell 
of control field 

address area (CFADt, 



IR2 « Pointer 



Calculate the loca- 
tion of the last cell 
of the table + 1 



Cell MORDER 



Hasps' 

"a table of this* „ 
_i been generated 
Jpr each of the 
lerge ln- 
uts 



No 



Store.new, l ocation 
Cilculpted »« the lo- 
cation of the 1st wd. 

coat. fle*lds of Ihelsl 



IR2 " Pointer 



4.01.03 



4.01.03 



(p 



save newioca 
calculated at I 
cation of the lit wd. 
of die table for the 

Kiont. fields pf the 
art record of lint 
merge block frLCFAj 



IR2 = Pointer 



Locations used 
indirectly to 
find actual lo- 
cations of 
tablet. 



Calculate the locat 
ion of the last cell c f 
the Table + 1 




Call MORDER 



Save new location 
calculated at the lo- 
cation of the lit wd. 
of the table for the 
cont. fieldt Of the 
block 



IR2 ■ Pointer 



I 



CFADR-1 




CFADR - T • 



, \ wdt - 1st record 



\\ wi 
of block 

\ 2nd table of CF 
Vwds. - lrt record 
\ of block 



CFADR-M T. n th table o f Lf 
\wdii - 1st record 



T 

a 



LCFADR-r 



Save new location 
:alculated at the lo- 
cation of the lrt wd. 
of the cont. fields 
for sequence check 
(MRSC) 



I 



>IeofCF\ 
'was. last record 

LCFADR-2 J. V 2nd table of CF , 
was. -Last record 



LCFADR 



MRSC 



WRTB1 "Z : 



\o; 



t\ of block 

"v nth table of UK 

\oft1l , 6cfc" t,ecord 
-f- \ Control neia tor 



\. sequence check 



T 

a 



T 

a 



Calculate the loca- 
tlon of the origin of 
the lrt write table 

and save 
(WRTB1) 



Calculate the loca- 
tion of the origin of 
the second write 
table 6 save 

(WRTB2) 



WRTB2 



ADDR=1 



•// Write Table y~T 

I ft III I 



t 



Calculate location 
of origin of lrt rec 
ord storage area, in 
sert a tag of 4 G 
save (Addr, 2) 



IR2 = Pointer 



Calculate location 
of origin of next 
record storage area 



Cell CNT6 




ADDR2 



Write Table , 

LLLLLL 





\ \ \ * 

Record Storage 
Area 2 

!A1 



ADDR-h 



High End 
of core. 




Record Storage 
Area N 



1\ 



\ 



Save calculated lo- 
cation of origin of 
next record storage 
area (ADDR, 2) 



IR2 = Pointer 



a = tt of words In control fields of record 
b = Merge blocking - # of records per block 
c = Merge blocking - # of words per block 




4.01.04 



4.01.04 







J, 



Extract I tave no. 
of wdt lit cont. 
field extends over 

(ERAPR-5) 



Cell CFWFO - 1 



■tgned 
BCD 



MR4M 




increase count of 
word* In lrt cont. 
field by 1 

(ERAPR-5) 

] 



MR4Q2 



"orm • command at 
follow* lOCP 0, 0, 
RL 



I 



Stoic the above In 
all calli of both 
write table* 



I 



Extract merge or- 
der (MORDER) & 
save In accoc, in- 

■tructiona 



Extract # of merge 
areas (CNT6) & 
■ave In assoc. ln- 
ttmctiont 



Extract # of wds. in 
all control fields 
of a record C tave 
in astoc. instruction 



Determine location 
of file number from 
Internal label 
label storage area 
6 tave (FLN) 



withix — y 



Determine location 
of past number from 
internal label within 
label storage area 6 
save (PSN) 




MR 



K. 01. OS 



4. 01. 05 




MR720+I 



Starting with 1 store 
the next consecut- 
ive file number in 

the decrement, of ' 
next avail, cell ot is* 



G last cont. field w< 



(CFWD, 1 i LCFWD, 1) 



Merge Order 




of cont. fielskT 
i specialized equt 




Clear necessary 
cells 



•o 



Set 1st file number 
cell to 1 

(FLNO, 2) 




Increase previous 
ale number by 1 & 
save in next file 
number cell 



Extract merge 
order & save 

(MORD1 & MORT) 






NOTEs Indicates 
that input files are 
about to be opened 



Turn on 

sense lit* 

4 



1 



o 



, _avelocat-^ 
^_on counter for, 
>\ tracing (GENP - 



JL 



f 



Set up open routine 
calling sequence wd, 

(RWCS) decrement 
x> specify next file 

to be opened 



Place file number 
into internal label 

file no. word in 

storage 



SOP 



Open routine open 
specified file 




4,01.06 




Sense lite 4 



No 



Turn off 
sense 
lite 4 



Set up open routine 
calling sequence wd. 
(RWCS) minus to in- 
dicate opening of 

"output" files 



update pass number 
within internal 
label pass number 
word in storage 



4. 01. OS 



Save number of 
file to be read 



(MRT2) 



i. 



NOTE: Indicates that output 

files are fcout to be opened 



Set up first word 
(RWCS) of 10 rou- 
tine calling sequenc* 
as follows i Adr = 
1) dec- 



iffleNo. til 



t 



word 

routin : 



calling sequence as 
follows: Adr=origin 



'Save loca 
r tion counter 
J for tracing 
' ^(GENPR-4) 



IQfiS, 



I 




v iu Routine -re norm 
initial read of 1st 
file 




4.01.07 




4.01.07 



Move number of 
file read from 'Ipre- 
sently read" status 
/MRT2) to previous- 
ly read status(MRTi; 



determine number o:t 
next file to be read 
& place In "presently 

read" tutui (MRT2) 




>^ 



MRA4 



IOBS 



Modify 1st word de- 
crement (RWCS) of 
IO calling sequence: 
to specify next file 
to be read 



Modify 2nd word 
address (RWCS1) of 
10 calling sequence 
to origin of record 
storage area assoc. 
with tile to b«i read 




Save loca 
on counter 
for tracing 
(GENPR-4) 




IO Routine perform 

' initial read of 
specified file 



Turn on 



Sense lite 
1 



MRA3 



NOTIi Indicates that Initial read of all files has been performed 



Extract number of 
words read and save 

(CNT90) 



NOTBi The location of the oiigln4 of the appropriate 
Record Storage Area contains the word count. 

This is accomplished by the I/O routine 



Calculate number of 
records read and 



save 



(CNT9) 



I 



Compute total no. 
of records read to 
date & save 

(CNTR) 



Set up area wd. (AR 
WD. ljfor file prev- 
iously read as follow i 
Adr - # of records 
read.Dec - # of rec- 
ords read 



IR1 ~ Pointer (File #) 



of me" worl'fFiwD 
1) as follows: Adr - 
Address of origin of 
1st record in record 

JttX ' Ce c = 



IR1 = Pointer (File #) 



Set up "last record o; 
file" word (IXWD, 1) 
as follows: Adr = 
Address of origin of 
last record in record 
storage area,Dec= 
fil» mil 



area,!, 
nnpr 



IRl " Pointer (File #) 




4.01.08 



Sense Lite 1 




o- 



Turn off 
tense lite 
1 



MRC 



Turn on 
sense lite 
1 



I 



NOTEs This is a result of previous test. 



NOTE » Again indicating that Initial read of all 
files has been performed. 



Extract § of input 
files to merge phase 
MORD1) 6 save In 

assoc. cells & in- 
structions 



OXTR Y 



Specialize cell 
"RCWD" used for 
communication wirj 

the "extract" routin ■ 



NOTEi This cell will be used indirectly 
by "extract" to determine the lo- 
cation within the record storage 
areas of the record containing the 
control fields to be extracted. 




Yes 



Jet up "extract' 1 call 
ing sequence word 
as follows Adr =Orl 
gin of area extractr- 

itored lByfec=flfe0 



4 

; loc 



MR120 



Prepare to process 
next file 



Save loca- 
' tion counter\ 
for tracing 
(GENPR-4)/ 



XTR 



4,02.01 



Extract control fieldi 
of last record of 

block of specified 

file 



1 



Merge Order 



Prepare to extract 

control fields of last 

record of block of 

next sequential file 




4. 01. 09 



4.01.09 




C«U MOROl 



m iaci- 

ttoa counter 
* fencing 
[OENFR-4) 




Set up "MRL" call- 
tog teauence word 



MRL 



Routine to tort 
control fields at be- 
glnalag of each pas i 
or tt each sequence 



NOTEi Sort Control 

Fleldi of Uit record! 
of ell filer 



Place read Indict - 
ttoa (1) In 10 routine 

•ailing sequence 
" l(RWCS) 



•MODIFICATION MPMOil 



T 



JlUfml&t'hlt # ttsob 
with lowest flic In 
'sequence* establish- 
edby "MRL" tort 
routine 



I 



NOTEi Thli file will be the next to have a block read. 



Speciaiiie ID routine 
calling tequence wd 
1 (RWCS) with thli 
lie # & alto rave in' 
'present read file #*• 

Mil gaga 



rari 



DTOwmn p a t we- 

»di read per block & 
iave for uter teit fo 
necessity of write 
operation (CNT1 



1 



re?ggi wra m — 

'area word»(ARWD) 
cell, check next 
♦ell for the avail- 
ability of the assoc 
record storage area 



NOTEi There li one "ARWD" cell associated with each 
"record storage are*". If the area It in ute Itt 
"ARWD" wtfl contain the number of records read. 
At a result the "ARWD" will be non-tero. 




Find location of ori- 
gin of available ree 

ord storage area S 
in 2nd wd. of 




MWR 




MER1 
MWR 






— * 




Print routine - 
Print massage 


Print routine • 

* 

Print error message 


V 






Pause ) 




\ 


Error 1 




' 








\ 

\ 


Print and Halt 






Restart > 


' 








Restart routine 



Logical error 
cannot contlxeie 
press start to 

restart 



Operator 

action pause 
. . .Action 
completed 



4.01.10 



f MR A 



Save area number li 
cell (MRT2) 



/Save loca- 
ion counter fo\ 
.tracing (GEN 



IOBS 



IO routine - Read 
next block of 
specified file 



OTXR 



T 



Specialize cell 
"RCWS" used for 
communication wifc 
this "extract" rou- 
tine 



_, NOTEi This cell will be used Indirectly by 
"extract" to determine the location 
within the record storage areas of the 
record containing the control field 
to be extracted. 




i>et up extract 
calling seq. wd. as 
follows: Aclr=orlgin 
of area extracted 
CF's are to be 

stored in Dec = 




XTR 



4.02.01 



Extract control 
fields of first rec- 
ord of block of 
specified file 



3 repare.to extract 
cont. fields of 1st 
re cord of block of 
next sequential 
file 



MR1S4 



Yes 



Prepare to process 
next file 



No Merge Order 

MR153/^ All \j£ 

^/tiles processea\ Yes 

*C >— M u 




4.01.11 



4.01.11 



Cell MORD1 



©■ 




QRST 



MRL 



Save loca 
tion counter 
for tracing 
GENPR-4) 




Set up "MRL" 
calling sequence 

word 



4.03.0 



Routine to tort 
control fieldi at be- 
ginning of each pai i 
Ikflfe&leq. 



NOTEi 



Sort control 
fieldi of 1ft 
records of a] 
fieldi 



dRlOOA 



Initialize sequence 
check cell (FLCK) 
by setting to zero 



MR117 j 



aU control fields o: 
flat record of lowei 
file ai a result of 

to '' cohtrol ieMlbr 



(See chart on 4. 01. 03) 



Extract the location 
within the record 
storage area of ori- 
gin orrecord assoc. 
with post, field, 
►noved, from cell 

n.wn, 1 



eU CKS1ND 




MODIFICATION MPM02 



MR103 



o 



Place address of 
record into next un- 
specialized tag of 
write table 



MR106 



«£ 



(See chart on 4.01.03) 



Calculate location 

of origin of next rec ■ 
ord within the 
"record v storage are i 
assoc. wTtti C7F. v 
moved G sa ve(FLW D 



1R1 - File Number 



D 



Update count of 
records remaining in 
the "record storage 
area 1 
2) 



by -1 (ARWb, 




"Sm,... (ARWD, 2) minus 




4.01.12 



MR?5. 



Set assoc. area wd. 
(ARWD, 2) minus 
to indicate thii con- 



MWR 




MRER1 
MWR 



4.01.12 



PAUSE 



Print Routine print 
Error message 



S 



Print Routine print 
error message 



Print and Stop 



RESTAR 



Restart Routine 



Increase count of 
records ready to be 
written by 1 

(WRCT) 



\ 



\ 



Error 2 



\ 




Logical erro 
cannot cont- 
inue press 
start to re- 
start 



Operator 
Action Paus i 



with extract routij 



munics- 

—■ tjl 

one 
to point to origin ci 

next record in the „ 
"record storage area" 
assoc. with C.F. 

move d. 

Save loca 
ion counter 
ffor tracing 

(CENPR-4), 



Specialise calling 
sequence wd. of cx< 
tract routine with 
^location ol extract- 



ed C.F. 
used 



area to be: 



3k 



I 



f TJ2TOT 
Extract cont. Ilelfll 
of next record assoc 
with file whose C.F 

Sit moved.to "seq. 
iecK area" 




4.01.13 



4.01.13 



MRLooi 




Save loca- 
tion counter 
{or tracing 
(GENPR-4). 



Cell MORO 3 

Present"*' 
terge Order \lfii_ 



MR1 
MRO 



Initialize instruct- 
ions that may have 
been altered by pre 




MRO 



Initialize instruct- 
ions that may have 
been altered by 
previous pass thru 
routine 

'MRSW11 



MR1 



Initialize Instruct- 
ions that m«y bi>ve 
been altered by 
previous pass thru 
routine 

(MRSW3, 2, 1) 




,.Cell M6RD3 



-_ MODIFICATION MPM03 





66666 



\ak\ /^mrN / MR \ /\n\ (zr 

W-J J I 14 J \ is J I 16 J I 17 

4^)1.14 4.01.14 4^mS X 4/Dl7Tr 4^17 




4.01.14 



CP3 




Detail (Pg 4. 01. 24) 



r 



4. 01. 25 



way) 



Limit toutiaa 
to * 3 my 
merge 



CP3 




Detail (Fg. 4.01.24) 




/f"*\(£y) D.U11 (Pg. 4.01.84) 



/ 



\ 



f^©! 



\ 



\ © 
\ 




4. 01. 25 



4.01.25 



NOTEi 

1. liefer to detailed flow chart (4. 01, 24) for 

"equal" condition* and additional fact* 

2. > • Accumulator content greater than storage 

3. < • Accumulator content smaller than storage 



MR6 




4. 01. 15 



Limit routine 
to a 6 way 
merge 



Detail (Pg 4. 01. 24) 




(C\5 way) 
MRS j 



NOTEi 

1. Refer to detailed flow chart (4fil. 24jfor 
"equal" condition* and additional fact! 

2. > « Accumulator content greater than storage 
i.C" Accumulator content smaller than storage 



limit routine to 
a 5 way merge 



Detail (Pg 4. 01. 24) 




CP3 



CP4 





4. 01. 25 



4.01.16 




NOTE. 

1. Refer to detailed flow chart (4. 01. 84) for 
"equal" conditions and additional fact! 
2.> •» Accumulator content greater than storage 
3X " Accumulator content smaller than storage 



limit routine 
to a 7 way 

merge 



Detail (Pg 4. 01. 24) 




T¥ ^®' 



tmrts 



4.01.17 




4r 

rRout 



MR10 
limit Routine 

to a 10 way 

marge 



CP9 



CP10 



ma. 




NOTEi 

1. Refer to datallad flow chart (4. 01. 24) tor 
•'equal" condition! and additional facta 
2.> - Accumulator content greater than itorage 
3.*- » Accumulator content smaller than itorage 



limit routine 
to a 9 way 

merge 



Detail (Pg 4. 01. 24) 




/MR18\ 



111 way) 




limit Routine 
to an 11 way 
merge 



Detail (Pg 4. 01. 24) 



CP9 




^>o- 



CP1C 




' 7 


?K^- 




^ 
















r 






b^ 1 


-C^-— 




1 


r 


r * 


•r 








■^ — 




•m 




4.0L25 



NOTE* 

L Refer to detailed flow chart (4. 01. 24) fix 
"equal" ccndlttoac and additional facts 
2. / — Accumulator content gscater tiban storage 
3.<= Accumulator content smaller than storage 



o 



Detail (Pg 4.01.24) 




NOTEs 

1. Rein to detailed flow chart <4. 01.44) for 
"equal" conditiom and additional facts 
2.7 = Acammlator content greater than storage 
3.c* Accumulator content smaller than storage 



2 
5? 



/MR20\ 
^13 way>y 



MR13 



1 



Limit routine 
to a 13 way 
merge 



CP9 



CM! 



4.0L2S 



Detail (Pg 4. 01.24) 




NOTE: 

1. Refer ID detailed flow chart (4-EE ^for 
"equal" conditions and additional facts 

2. /= accumulate* ccaate nl greater than storage 
3X= accumulator content smaller than storage 



"o 



o 



Mill 




Limit routine 
to a. 14 way 
merge 



Detail <Pg 4. a. 24) 



CP9 



CP13 




4.01.25 



NOTE: 

1. Refer to detailed flow chart (4. 01. 24) for 

(equal) conditions and additional facts 

2. >» Accumulator content greater than storage 
3.<= Accumulator content smaller than storage 



o 



/MR22 \ 

(15 wayjf 




MR15 f 



limit Routine 
to a 15 way- 
merge 



Detail (Fg 4. 01. 24) 



cp9 i. /-s 



CP13V 

<£M<) 

cpist _^ 

® 



te 





4.01.25 



NOTE: 

1. Refer to detailed flow chart (4.01.24) for 
"equal" conditions 6 additional facts 

2. >= Accumulator content greater than storage 

3. < s Accumulator content smaller than storage 



b 






CP9 



CP13 




CP1S 




±L \L 



CPU 



rpi? 






* V 





Detail (Pg 4. 01. 24) 






^ 



*- 




4.01.25 



NOTE: 



1. Refer to detailed flow chart (4. 01. 24) 
for "equal" conditions and additional facts. 
2..^>— accumulator content greater than 

storage 

3.<C = accumulator content smaller than 

storage 






4.01.24 




DETAIL OF COMPARE OPERATIONS 
(Refer to pages 4. 01. 14-4. 01. 23) 



CP(X) j 



Prepare to compare 

1st wd. of 1st cont. 
field of new record ol 
with 

lit 
cted 
file (other) 




NOTE) The location of the previous record of file 

represented by control field in sequence check 
area has been placed In write table; therefore, 
Its next record must be merged. 




Cell CPJND 



NOTEi « Logical ascending 

1 ■ Logical descending 

2 » Algebraic ascending 

3 - Algebraic descending 



5 



1 



Perform logical 
ascending compare 



AC"3H 1 Y=other 



I 



Perform logical 
descending compare 



I 



Perform algebraic 
ancendlng compare 



7C C»rU t T ette r 



I 



Perform algebraic 
descending compar > 



AC-otherl YSgT 




4. 01. 25 




( V J mRIOO 

N — s rssn 



, No 

MRXCL V 

Modify existing seq, 
placing the file rep- 
resented by C.F. In 
tea. check area 
|Kj) into its proper 



=*R 



Set sequence cbecK 
(FLCK) cell non- 
zero 



I 



MODIFICATION MPM04 



Save loca- 

r ,tion counter ' 
for tracing 

(GENPR-4J 



Cell CPIND 




NOTEi « logical ascending 

1 «• logical descending 

2 - algebraic ascending 

3 ■ algebraic descending 



SCPPA 
SCPPB 



SCPPA 
SCPPB 



Perform logical 
ascending compare 



ACC=K1 



^ 



1 



Perform logical 
descending compare 



SCPPA- 2. 
SCPPB- 

\ 



^ 



Perform algebraic 
ascending compare 



■Y « mrsc: 



ACC^MRSQr,Y=Kl 



C^ 



ACC==K1 



i. 



SCPPA- 
SCPPB-3^ 



Perform algebraic 
descending com par : 



Y=MRSC 



ACC=MRSC 



Y=K1 



NOTE: ACCiaccumulator; Y = storage, Kl - C. F. lowest order 
file in sequence, MRSC = C.F. of last record placed 



r 

/MR \ 

4.01.26 



NOTE: Comparing to see if next low record will fall into same output sequence (string) 



4.01.26 




4.01.11 



Operator 
action pause 



Print routine 
print error message 



>ause 



Print and stop 



RESTAR 



I 



Restart Routine 



4.01.27 




MODIFICATION MPM05 



^Cell WRIND 



area wd. cell ex- 
tract next untested 
word 



Yet 




Clear out exbncted 
area word cell 

(ARWD, 1) 



Make extracted 
area word cell 
(ARWD, 1) prefix 
equal to -1 



Determine # of 
worda to be written 
6 lave 

(CNT11) 




Sense lite 1 



Increment count of 
sequences (strings) 

byl 

(CNT5) 



Make number of 
wds. to be written 
minus indicating tli 
start of a new seq. 

(CNT11) 



WR15 




Form I/O calling 
seq. word 1 (IW 



as lollowsi Prefix 
4. Dec "File No. 
to be written on , 
Adr. - 1 ' 



csV 



initiate cell that 
:ontains number of 
file to be written 
on (Set to 1) 
(MRT3) 




4.01.28 




Form I/O calling 
sequence word 2 
(RWCS1) as follows: 
Dec » Number of 
logical records to be 
written (WRCT) Adr= ; 
Origin of write tag 
tables 



I 



'Save loca- 
' tion counter ' 
k for tracing 

(GENPR-4)y 



IOBS 



Ji. 



I/O Routine ■ 
Write Block 



I 

ou 



Update count 01 a. IT 
records written to 
include last outputejd 
block 

(CNTW) 



Reset write count 
(WRCT) cell to 
In preparation for 
next write 



intercnange Write 
tag tables in prep- 
aration for next 
write (WRTB1.WRTJ. 




Cell RDIND 



Cell RDIND1 
Yes s" 

4. 01. 35 



4.01.29 




Move number of file 
end from "presently 
read" itatui (MRT2) 
to "previouily read 1 
status (MRTI) 



Extract number of 
words read and save 
(CNT90) 



NOTEt The location of the origin -1 of the appropriate Record Storage Area 
contains the word count. Thli ii accomplished by the I/O routine. 



Calculate number 
of records read and 



save 



(CNT9) 



NOTEi This cell (CNT9) will be minus if this is the start of a new sequence 



Compute total # 
of records read to 
date and save (CNTlt) 



Set up area wd. 
[ARWD, 1) for file 
previously read as 
: follows; Adr=# of 

lad Dae ■ 
as read 



.recoi 
> of recoi 



Error 3 



tog 

ca 



gical error, 
cannot con- 
tinue press s 
start to restart 



MR229 

MWR 



(IRHFile No. ) 



Extract location of 
record storage area 

origin containing 

block read 



MRER1 

MWR 



Operator 
Action pause 



Pause 




Restar 



Print routine - 
Print Error Message 



T 



Print Routine - 
Print Error Message 



Print and stop 



Restart Routine 



Cell RFWD2, 1 
(JRl=File number) 




Store location of 
record storage area 
origin floe, of 1st 
wd. of 1st record)intc 



Set decrement o 
this reserve table wd 
equal to record , 
Storage area numbei 

(RFWD2, 1) 



iidicate thai ItHS — 
s the start of a new 
string by setting this 
reserve table word 
minus 

(RFWD1, 1) 



bet decrement oi 
this reserve table wd 
equal to record 
storage area number 
(RFWD1, 1) 



4.01.30 



MR 

30 



4.01.30 




MR 

30 



MR 225 



Determine location 
of 1st word of last 
record within record 
storage area of this 
block and save 

jwiwrTi.li 



it dec 



this telle word(RLW 
)1, 1) equal to record 
storage tret number 




rO 



MR236 



Cell MORU 



'(£) 

4.01.M 



Reduce number of 
files left with last 
record «t old seq- 
uence la vel by j 

(MORU) 




Remove this file 
from B than update 
control Add word 
tabic for last re 
(LCFWD.l) 



--{£) 



iinrein ■ 

h used for 
communication witl 
the "extract" tou- 

ttM 



I 



NOTBi TbJi cell will be used indirectly 
by "attract" to deurmlna the 
location within the record itomga 
•mm of the racord containing the 
control field* to be extracted 



4.01.11 



ieTup f extract" Call 
fag sequence word ai 
foUowsi Adr ■ orlgli 
if area extracted 

'id la Bee *flb 



toca- 



iva 

Ion counter 
k for tracing 
.(GINPR-41 



XTR 

ozx 



T 



Extract control flaldi 
of laft racord of 
block of specified 
flU 



MOLR3 




Sef UP MRi calling 
sequence word to 
indicate sorting of 
control fields of 
la.« record of all 



MKL 



Routine to sort 
control fields at 
beginning of each 
pass or sequence 
break 



4.01.31 



4.01.31 



mrnn 




Place lead indict 
tion (1) In I/O routin i 

calling tcquence wd . 
1 (RWCS) 



}etermine file num- 
ter lftoc. with low- 
lit flic In sequence 
established by MTU* 
tort routine 



NOTE: Thii file will be the next to have a block read In. 



Spedallta IO routin*] 
calling lequence wdJ 
1 (RWCSiwlth thii 
file numUer alto tai 



a»* 



^DR 



J 

ran 



Uettrulhl nUmbil U 
record! read Into 

record;, itorage area 
awec. with abewe 



Starting with let 
area word«(ARWD) 
«*n,v«h«ck next 

attl^^tK* 11 - 




iNOTEi Thar* it on* »jHSnoytmU aatoclated with each 

record itorage area. II the area it in u»e Ita "ARWD" 
will contain the number of record* read. At a remit, 
the H ARWD M will be non-tero 



find lflgaOOB 
origin of available 
record itorage area 

and wore in 2nd wd, 
of 10 calling te«r- 



I 



Save area number in 
cell MRT2 



I 



lOBS 



MWR 




MER1 
MWR 




Logical error 
cannot cont- 
inue preti 
ttartto w- 
ttart 








Print Routine - 
Print Menage 


Print Routine - 
Print Error Menage 


\ 
\ 
\ 




Peute V 




Eirror 4 




Operator 
Action Panee 




Belie Monitor 


\ 


Print & Halt 




1 


*£STAR \ 


' 


^^^ 












Reitart Routine 





rsrn 

, location 
counter for 



I/O Routine 
Read next block of 
■pacified file 




4.01.12 



4.01.32 



/MR260 




Set current last 
ecord merge order 

cell (MORL3) to 
number of active 

files (no EOF en- 
countered) 



NOTE: Due to the fact thpt the lpst record of only one file rem fined 
at the old sequence level, comparing is to begin again in- 
corporating all files. Except for the file remaining, all will 
be at the new sequence level. 



Move location of , 
last record of each 
ale from reserve tabip 
RLWD1, 1) to current 
table (LLWD, 1) 



QXTR 



1 



Specialize cell 
"RCWD" used for 
communication with 
the "extract" routin >. 



NOTEi This cell will be used indirectly by "extract" to determine the 
location within the record storage areas of the record containing 
the control fields to be extracted. 




Set up extract call- 
ing sequence word 
as follows Adr = 



on 



lgin of area ex 
traded c, f . 's are to 
4 stored in Dec = 



I 



iave loca- 
'tion counter , 
for tracing 
YGENPR-4) 



Prepare to process 
next file 



XTR 



I 



4.02.01 



Extract control 
fields of last record 
of block of speci- 
fied file 



Merge Order 



Prepare to extract 
control fields of 
last record of block 
of next sequential 
file 




4.01.30 



4.01.33 



Cell RFWD1, 1 



ARS3 




Cell MORD3 



Clear cell of current 
table (FLWD, 1) asso : 
with this file 




NSEQ 



Mo: 
"than 1 
fit with first 
^t old sequence 
level 



Yes 

Reduce number 51 



Set current first 
record merge order 
cell (MORD3) to 

number of active 
files (No EOF en- 
countered) 



files left with 1st 
record at old seq. 
level by 1 (MORD3) 



Move location of 
1st record of this 
file from 1st level 
reserve table(RFWD 
1. 1) to current 
tabte (FLWD, 1) 



rtRTs 



'Turn on 
sense lite 
4 



Remove this liie 
from & then update 
control field word 
table for first rec- 
ords (CFWD, 4) 




ell RFWD2, 1 



Yes 



Move content oi 
cell of reserve 

table 2 (RFWD2, 1) 

to assoc. cell of 
reserve table 1 

(RFWD1.1) 




Move location oi 
first record of each 

file from 1st reserve 

table (RFWD1, 4) 
to current table 

(FLWD, 4) 



T 



Move location of 
1st record of each fill 
from 2nd reserve 
table (RFWD2.4)to 

1st reserve taole 

(RFWD1, 4) 



pXIR_ 



MR377 



Clear reserve table 
1 (RFWD1. 1) cell 
associated with this 
file 




1 



Clear reserve table 2 
cell (RFWD2, 1) 
associated with this 
file 



T 



Specialize cell 

"RCWD" used for 

communication wit! 

the "extract" routine 



MR254 



Prepare to process 
next file 



4.01.12 




Merge Order 



Set up extract call- 
ing sequence wd. as 
follows Adr=Origin 
of area extracted 
C.F. is. are to be„,, 
stored in Dec = File 



^Save locaA 
tion counter \ 

for tracing \ 
JGENPR-4) / 



,XTR 



4.02.01 



Extract control 
fields of first record 
of block of specified 
file n 



4.01.34 




Prepare to extract 
control fields of 1st 
record of block of 
next sequential 
file 



4.01.34 



QRST 




Cell MORD3 



ave locati 
counter for 
tracing 

(CENPR- 




Set up MRL call- 
ing sequence word 



MRL 

4.U3.U1 



Routing to sort cont. 
fields at beginning 
of each pass or at 
each sequence 
break 



CKS 

CKSA 





1 



Compute checksum 
of record assoc. with 
control field in teq. 
check area 




Dumped a 

logical re core 
of wrong 
e check sum 



CKSC . 

Save loca 

Hon counter 

for tracing 



PEBLK 



CVPRT 




be blocking 
Routine 



Print Routine - 
Print Error Message 



Increment count of 
dumped records this 

pass by 1 
(MRD) 



Decrement count 
of records written 
by 1 

(WRCT) 




4.01.11 



4.01.35 



MRKF1 




O 



He let end of lilt in 

dicator 



(RD1ND1) 



Moi^e tapes 

too bllOIi, 
Lliuble to pio- 

Ct'L d 

NUl£ftS\ 

N WR 



ETH 



[icicl End of tape 
indicator 

(WRIND1) 



Decrement count 
of Input files by 
1 

(MORD1) 



Operator 
action pause 



\ 



Print routine print 
error message 



MRE12 




Pause ± r- 



Print and stop 
UESTAK I 



Restart routine 




Reset end of file 
indicator 

(RDIND1) 



Cell MORD2 




Decrement number 
of files left to be 
merged (MORD2) & 
(MORL2) by 1 



^lear last record re- 
serve table cell 
[RLWD1, 11 for file 
assoc. with EOF to 
Indicate this condi- 
tion 





Cell MORT 



Reduce number of 
available output tap :$ 
by 1 

(MORT) 




Cell MRT3 



Move this file to 
highest order of file 
number tablefFLNO 

1) 6 update table to 
fill in void 



■ LH5, J, 

Move higher order 

files down one cell 
to fill in gap left 
by EOT file 



&. 



\ 



NOTEt This will 
allow normal pro- 
gression from the 
file to next seq- 
uential file as new 
sequences pre gen- 
erated. 



Place EOT file at 
highest order loca- 
tion above other 

files 



Turn on 
sense lite 
1 




4.01.27 



4.01.36 



(MR A 




Cell RDIND 



Set close routine 

calling seq. wd. 

(RWCS)as follows: 

1. decrement = file 

pumber 
2. Remainder zero 



/Save loca- , 
/tlon counter 
\for tracing 

(GENPR-4) 



VC 



1 



1 



ose routine close 
next input file 




Set close routine 
calling seq. wd. 
(RWCS) as follows: 

1. Decrement=file 
number 

2. Prefix - MZE 



•? — ; — 



'Save loca-> 
ion counter 
for tracing 
(GENPR4) 



SCL 



I 



Close routine 
close next output 
file 



CKPT 



Write checkpoint 




No 



Yes ^< J check eStP t J 
.^option specified 




4. 01. 37 



4.01.37 




Update pass number 
by 1 (PNBR G MRES 
1+ 2) 



Update dumped 
records count for 
merge phase 
(MRDCT) 



Store loca- 
tion counter to 
^tracing 

l (GENPR- 4J 
BTD 



4.QS.Q1 



Convert record couni 
(CNTW) to BCD 



Store converted 
record count into 
message 



MWR 



Print Message 



1 

' Store ioca* 



Records 
dumped this 
pass 




All 
counts correct 




Merge phase 
pass X comp- 
leted. Record 
count; xxxxxx 



xxxxxx 



tlon counter 
:or tracing 
(GENPR- 
BTD Jr 



4.05.01 



Convert count of 
records dumped 
^MRD) to BCD 



Store Result in 
Message 



MWR 



Record count 
io not check. 
r Set sign key 
up or qown 
to continue 
or restart 
press 
start 



Print routine 
Print error message 




Pause 



I 



Print and Stop 



.. xontin^^r 

^ rue -^Continue or 

Restart 



Operator acticfi 
Pause 




4.01.38 



MR706 




Interchange channel 
In preparation for 
next pail 

(CHIND & CH1ND- 



Extract count of 
sequence* written 

(CNTS) 




>U XTRMG(SAMPR-S) 



Add number of 
merge input file* 
(MRGS) to seq. 
count 




Cell! MORDER 



~MWR 



/ 



/ 



Merge phase 
completed 



r~ 



No 



Print routine 
Print completion 
message 




Cell XTRMG(SAMPR-S) 
MRXR4 



No^ 



MR7 

MR721 

kartin' 



Extract # of records 
written last pass 
(CNTW) save as 
record count (MRC1 
for next merge pass 



I 



fwith lstunit 
wd. .table 



.et 



celt beyond area„for 
internal merger 
lext available ce 
minus to indicate its 
assoc. with external 
merge input. 



Reset I i le num be ri n j 
of control field wds. 
(CFWD, 1GLCFWD, 1) 
to initial sequence 




Please mount 
a merge file 



%4R722 4f 

Strire the address of 
the next unaaspCi . 
merge input file ., 
block in decrement 
of die present unit 
cont. wd, table cell 



MR723 
CVPRT 



i 



Print Message 



cm:cw,«f 



MRT2, MRT3, CNT5 
WRCT 



Clear count of 
dumped records 
this pass (MRD) 




4.01.05 




Restore Index regi- 
star 4 



I 



Return to Sort Monitor 
via 3,4 



Extract routine 
to extract all cont. 
fields from record 
(Merge phase) 



4.02.01 

TSX XTR, 4 

PZE Adr, ,Dec 

Adr = Origin of area extracted control field is to be stored in 

Dec = File number 



( XTR ] 



XTR 1 


Sav* index registers 
1, 2, 4 (XTXR1, XTX 
R2, XTXR4) 




f 


Extract calling seq. 
word 



xr t a »^ 



Calculate the addresi 

+ 1 of the last word of 

the next control flel 1 

to be extracted from 

the specified record 

within the record 

storage area G save 

in assoc. instruct! o is 



Xlfi J» 

Extract the 1st wd. 

of record contain- 
ing a portion of the 
control field, mask 
out portion assoc. 
with the CF only G 
save (XTEMP) 




Cont. field description Word 2 
Signed BCD or XTAM ~- r 



algebraic 



Store extracted 
control field into 
assoc, cell of area 
specified by calling 

sequence word 

address 





Position extracted 
:ontrol field portion 
of 1st word to left 
until first bit rep- 
resents sign 



Store into assoc. 
cell of area sped- 

field by calling 
sequence word 
address 



Commercial compare - Out to conversion 



XTXR1 
XTXR2 

XTXR4 
Restore Index 



Registers 1, 2, 4 



Save loca: 
/tion ctr. for 
^tracing (GENP 




4.02.02 




XTMORE 



Extract next word 
of control field 
(from record 




control fields- 



No 



Mask out positions 

r . ' __\l 1 tX.. 



af extracted wd. that 
pertain only to this 
control field & save 
(XTEMP) 



Control field descriptio 
Word 2 I 

* y^ Type 
of compare 



Signed BCD ot 
Algebraic 

Control field dee 
ctiption wd. ( 2 

, — Signed 
BCD or alge- -s. 
braic ^> 





algebraic 



XTSB 



Store this control-^ 
field portion of 
word into 2nd cell 
of extracted cont- 
rol field area 



Yes 



Bypass first cell 
of area to be occu 
pied by extracted 
control field. This 
cell will later contain 
sign 




Right justify this 
control field portion 
of last word and save 
(XTEN) 



I 




Extract last char- 
acter of repositions 

portion of cont. 

field 




4,02.03 



4.02.03 




Ye» 



XTE 

Prepare to indi- 
cate a positive sign 
by storing zeros in 
first word of this, 
extracted control 
field area 






Yes 



w i« te a 

^ £ by st 

^ in fit 



XTERR 
(jPROUT 



XTG 



Prepare to indica- 
te a negative sign 
storing an "MZE" 
first word of this 
extracted cont. fiel< i 
.area 



Remove zone over- 
punch from low orde ' 
character of C.F. 



last wd. 

in assoc 
tractea 
area, 



cted com 



and store 



XTS2 



ot 



cell of area assoc. 
with this extracted 
control field 




Print Routine 
Print Error Message 



STOP 




Illegal signed 
BCD characte 



,roNV 



Starting with the 1st:" 
wd. or the extract*! c 
control field area, 
convert the next un 
converted word to 
commercial equiva 
lence 




XTXR1 
XTXR2 
XTXR4 



"All 
"words of area con- 1 * __ 
^verted y^ 



Yes 



Restore index 
registers 1, 2,4 



Return 
-3* via 
2,4 



Routine to sort 

control fields at 
beginning of each 
pass or at each 
sequence break 



NfRL 




Extract calling 
sequence word 



4.03.01 

TSX MRL.-4 

PZE - CFWD/LCFWD, , Merge Order 

CFWD=Bsise of "control field word table" for 1st 

record of a block. 
LCl r WD= Brse of "control field word table" for lpst 

■ record of s block 

NOTEt "Control field word table" specifies the 
following! 

Adr = Origin of extracted control field »ren 

Tag = l 

Dec = File number 



Set "MRL routine" 
indication (cell 
(MRNCL^O) 



I 



NOTEi This cell will be tested by subroutine 
"LEO" when called. 



Specialize compar< 

instruction addressee 

with base of "control 

field word table" 

specified (Cm )J 



Specialize remam-' 
nff compare instru- 

gtion addresses witri 
ase of "cont. fi( 
wd. table" Snecifiec 
+ 1 (CFWD+i/LCF 
WD+1 




SAVE LOCATION COUNTER FOR TRACING (CENPR-4) 




Perform logical as 
cending compare 
(A C-Higher order 
cell; Y lower order) 



'erform 1 logical de- 
scending compare 

(A C* Lower order 
cellpY^Higher 

order) 



MRLCPA-2 
MRLCPB-2 

"Perform aigeoraic 
ascending compare 
(AC- higher order 
cell; Y-Lower order 



MRLCPA-3, 
MRLCjPB-3 



NOTE: AC=Accumulator; Y = Storage 



I 



Perform algebraic 



descending compare 

(AC- Lower order eel 
Y-Hlgher Order) 



4.03.02 




(MRNR4) 



Exchange content 
of locations of appro 
iriate control field 
word table assoc. 
with files compared 



(MRNR4) 




NOTE: Cannot go back beyond base of table 



No 



Prepare to compare 
cells of file table 
used for comparisot 
-■>] prior to last 




3.01 



MRLLT 

Update count of 
file control fields 
placed in sequence 

(MRL4 & MRUN) 



NOTE: Bear in mind that actually only words of "control field 
word table" representing file control fields are moved. 




No 




,Yes 



Restore IR4 



(MRLXR4) 



--> 



Reset to zero "MRI 
routine" indication 



(Cell MRNCL) 



\ 



Save loca- 
tion ctr. 



Return to caller 
via 
2,4 



tracing } 

V (GENPR-S) / 



Return to caller 
via 
2,4 



4.04.01 



Equals Routine 
Used when 1st words 
of 1st control fields 
are equal 



TXS LEQ, 4 

(No calling sequence) 




Save the sign from 
the first word (in 
accumulator) 
(LE81) 



Extract address of 
"add" type instruct- 
ion of compare loop 
that caused the 
equal condition 



NOTE: Address will contain base of "control field word table" (CFWD/ 
LCFWD) or base of "control field word table" + 1 (CFWD + 1/ 
LCFWD +1) depending on type of compare being performed 



Cell MRNCL 

LEMRL1 




Select particular 
cell within "control 
field word table" 

Involved with 

comparison 



NOTlt This was accomplished In "MRL" by tagging 
compare Instruction by 4$ however, since IR4 
now contains location of TSX, use of this 
method of modification was necessary. 



Use resultant 
address to special- 
ize "LEQ" routine 
compare instruction 



T 



Extract address of 
"compare" type in 
struction of compaw 
loop that caused the 
equalcondition. 



NOTEj Address will contain base of "control field word table" 
(CFWD/LCFWDJ or base of "control field word table" 
+ 1 ^CFWIH-1/LCFWD+lJ depending on type of compare 
being jterformed 



Cell MRNCL 
LEMRL2 




irticul 



ar 



Select pa 
cell within "cont- 
rol field word table' 
involved with com- 
parison 



NOTE: This was accomplished in "MRL" by tagging 

compare instruction by 4; However, since IR4 now 
contains location of TSX, use of this method of 
modification was necessary 



I£Q2 



Use resultant addres i 
to specialize remain 
Ing "LEQ" routine 
compare instruct- 
ions. 



Extract number of 
words control field 1 
extends over & Spve 
in associated instru- 
ctions. 




4.0^.02 



4.04.02 



Control Field description word 2 



LE41 




Extract number of 
unprocessed control 
fields in record, re- 
duce by 1 & save in 
cell NCFD1 



^Return to caller to compare next 
word of 1st CF. via 2,4 



Return to caller to compare 
next word of 1st CF. via -3, 4 



SAVE LOCATION COUNTER FOR TRACING (GENPR-S) 



Cell NCFD1 




4.04.06 



Determine position 
of next control fielc 

t ascription within 
ascription area & 
save 

(1E25) 



ua ^; er^niHgJocflU^H ^ 

of last word + 1 of 
next control field 
within extracted 
C.F. area relative 
to origin of area + 
save 



Update count of 
words in all cont. 
field of a file used ii 
comparisons to inclu 
de 4ext control 



Control field description word 2 




.04.0:J 



4.04.03 




Control Field description Word 1 



Specialize instru- 
ctions which select 
desired exit to call- 
er resulting from 
comparison for as- 
cending sequence 



LED1 



Specialize instruct- 
ions which select de- 
sired exit to caller 

resulting from com 
parison for descend- 
ing sequence 



Control field 1 
''Description wd. 



Compensate for in- 
fluence of descend- 
ing sequence com- 
pare loop setup of 
caller on" LEO*' 
compare loop 



NOTE! 



The compare loop Instruction addresses 
of caller are selected by type of compare, 
since these selected addresses are used 
In the "LEO" compare operation. The 
sequence of comparison of the caller 
must be considered here and compensa- 
ted for if necessary. 



Descending 




Return to caller 
via 
1,4 



4.04.04 




Return to caller vin 
-1,4 



Return to caller via 
1,4 




Cowtrol field des- 

cription word 2 leaSB__ 

Up date cells con 

taining count of wdi 

in all control fields 



Signed BCI 
^ 



of a file used in, 

comparisons by 1 

i To 



ipai- 
to compensate Tor 



jControl field 
.^description wd 1 




4.04.05 



4.04.05 




Specialize instru- 
ction! which select 
desired exit to call- 
er resulting from 

comparison for as- 
cending sequence 



G 

JE9__JL__ 



Specialize instru- 
ctions which select 
desired exit to call' 
er resulting from 
comparison for de- 
scending seqiuence 



Cont. field 1 
/description 



Compensate for in- 

?luence of descend- 
ng sequence com- 

wr pare loop setup of 
caller on »LEQ« 
compare loop 



NOTEt The compare loop instruction addresses of caller 
are selected by type of compare since these 
selected addresses are used in the "LEQ" compare 
operation. The sequence of comparison of the 
caller must be considered here and compensated 
for if necessary. 



4.04.05 




4.04.06 




Cell FLCK 



1E140 



No 




Extract file numb 
en of the files asset 
with control fields 
being comppred 




(AC « Accumulatori Y » Storage) 



LE140 



MWR 



Print Routi ne - 
Print Error Message 



Pause 



Records have 
same file no. 
logical errori 

cannot con- 
tinue 




I£160 



Return to caller 
via 
-1,4 




Return to caller 
via 
1,-* 



Basic Monitor 



Print and Halt 



Operator 
Action 
Pause 



P panel keys 

STP PX 




B -^" Mmiilw 



Dead stop 



Restart Routine 



4.05.01 



Binary to BCD 
numerical 

conversion 



TSX BTD, 4 

(number to be converted mutt be in 
MO) 



BTD 




Save index regis 
ter 

1,264 
f (BT1, 264) 



Clear out cellc for 
result 
(Cell, Cell-1) 




i the result 



ACC-A11 blanks 
MQ-B1, Bl, Bl, Bl, 
Bl, 




Turn on 
sense lite 



WF 



BTDB * 



Starting with high- 
est decimal order 
(10,000,000), divide 
quantity to be con- 
verted by next lpwei 
unused power of ten 







Sense litfi 2 



BTDA 




Turn 
sense lite 
2 back oi 



Prepare to Insert 
a "blank 1 ' into 
this BCD position 
of result 



NOTEi A sero will be inserted Into this 
position of result 



"Or" the character 
into its associated 
position of BCD out- 
put words 



posi > 




4.05.02 



4.05.02 



Modify divide in- 
struction to process 
remaining 6 low 
order decimal 
positions 




Restore divide 
instruction ; n prep- 
aration for next use 
or routine 



RT4 



Restore index 
registers 

1,264 




Return to caller 



via 
1,4 



iUiLiaV 

1. Initijlii^tion 
a. Set up uhle 




r.oroT — 



.1. Prepare Wen- 
tract all com. 
fields of the laf 
record of each 
block read 

" "" Z 5 j^'I^l2~l 

1. Prepare to put 
extracted cent, 
fields in seq. 



-/Initial 
j-KTread of all file 



5. 01. 08 
I. "Determine flle~ 
of lowest last 
record cont. 
fields. 

2. Find empty re 
cord storage 
area 

3. Prepare to re«< 
next block 
of the file 

1. Insert low padd- 
ing If specified 




. _ &.0LJ1 
1. Test to see if a 
i* cord storage 
axes was exhai 
™ ted _ 

_ _s.i».: 

1. Prepare to ex- 
tract control 
fields of the log 
leal record folio 
ing the one re- 
cently placed In 
write ttbTe «U- 
_tW_ 

1. Test for a pre- 
sent merge orde 

0*1. 

Prepare 

"n" w«y merge 

to merge these 
extracted cont 

fields with 1st 
record cont. 
fields of each 
file. 



. Merge 

I. Compare cont. 
fields of lowest 
record resulting 
from merge to 
these In sequence 

are* to determine 
If a tea. break 

satins, If so print 

error 



FINAL I.U-RGE .WUSEfPltASE *1 OVERA LL UXilC DIAGRAM 
A. Entry If frum and exit to sort monitor 

H. Condition*; 

1, No error or E.O.T. condition! shown 

2. Checksum G delete options assumed uot specified 
I. First words of ili control fields assumed unequal. 

A, Sort operation specified, external merge not involved, 
5. Present merge order assumed greater than 1. 
u. Exhausted record storage area handling, except at 
close of sort, not iliown. 

7, Conversion routines not shown. 

8. E.O.F. handling only considered when this condition 
hjs occurred on all input files. 



Read next block 
^f specified file 




MRL 



i.pa.a 



Sort control 
fields of last 
record of block 



Print comple- 
tion messago 



Return to sort monltot 



— •€) 



Final Merge Phase 
(Phase 3) 



5.01.00 



FM 




Save index register 
4 (FMXR4, 4) 



FM00 



Turn off all cense 
lights & EOF indica- 
tor (RDIND1) reset 



i 



Form a Wd: Adr= 
origin of 1st sort/, 
merge cpnt. field 



NOTE: IR2 will be used to differentiate between 
cont. fields 



Store it in next em- 
pty cont. field in- 
formation cell 



(CFINFO, 1) 



I 



IR1 ■ Cont. field information cell pointer 



M6dity the addrefl 
to point to the next 
wd. of sort/merge 
cont. field descri- 
ption area 




Place a tag ot 1 in 
communication wd. 
with extract routine 

(RCWD) 




5.01.01 



Cont. field info. 
'Wd. 2 




S.01.01 



Cont. field info 

/ Wd. 1 - »i«k ,_^_ 

jZ Set compare inaT^ 

™ cator cell to Zero 



uscendin; 



% 



(CPIND) 



descending 

(algebraiJ (logi cal descending) 



ALGE 



Set compare indi- 
cator cell to two 



(CPIND) 



ascend- 
ing) 



S«t compare indie 
tor cell to one 

(CPIND) 



(Logical Ascending) 



NOTEi Cell CPINDi 

» Logical ascending 

1 *> Logical descending 

2 • Algebraic ascending 

3 = Algebraic descending 



Y descending 
Set compare indi 



cator cell to 3 



(CPIND) 



FM400 



!E 



(Algebraic de- 
scending) 



Clear Cont. 

table areas:LCFWD, 

CFADR, LCFADR, 

flea**** 



11SRT 
SAMPR-4) 
merge 




FM03 
FM05 



SORT 



H 



Startlnt 
unit cot 



with 1st t , 
t. wd. tabli 



cell set next avail, 
cell minus to indi- 
cate its association 
with merge input 



Store the addr. 
of the next unassoc - 
iated merge input 
file block Tn dec. 
of present unit con : 
wd. table cell 



FM08 



Set phase indicator 
for phase 3 

(PHIND) 




Det. location of the 
1st. wd. of the 
table for the cont. 
fields of the 1st rec- 
ord of 1st merge 
block 



I 



open checkpoint 

tape 



IR2 = Pointer 



Store table origin 
calculated in the 
next available cell 
of cont. field addr. 
area (CFADR2) 



Calculate 



the loca- 



tion of the last cell 
of the table +1 



cell 

MORDE 




No 



tore new location, 
lalculatedas the lq 
zation of trie 1st wd 



StQ 

caJ 
catli 

of the table for 
the cont. fields of 



gwAs? 



IR2 •» Pointer 



.02 



5.01.02 




Save new location 
calculatedas.th* lo- 
cation of the 1st wd. 
of the table for the 
control fields of the 

lest record of 1st 
merge block(LC^\D: 



E 



IR2 - Pointer 



Location* used 
Indirectly to^ 
find actual 
locations of 
tab! 



Calculate the loca- 
tion of the last cell 
of the table +1 




Cell MORDER 



Save new location 
calculated as the 

location of the 1st 
wd. of the table for 

the control fields of 



IR&4»ointer 



(LCFADR, 2) 



Save new location 
calculated as the lo 
cation of the 1st wd. 
of the cont. fields 
for sequence check 
(FMSC) 



Calculate the loca- 
tion of the origin of 
of the first write 
table 6 save 

(WRTB1) 



Calculate the loca- 
tlon of the origin of 

the 2nd write table 

& save 

(WRTB2) 



Calculate location 
af origin of 1st rec- 
ord storage area, in- 
sert tag of 4 6 save 
(ADDR.4) 



I 



lR2=Polnter 



les 
\DR 



CFA 



CFADR 




\ Is 



CFADR-N ' 



CFADR- 1 



LCFADR- 2 



LCFADR- N 
FMSC 



WRTM 



WRTB2 



: - \l«lth table ol Lr 
\words - 1st rec- 
\,ord of block 

TUsttablaoi W' 
Vds. iia*t,rec- 
\ ord of Blockr 



\rords - Lastrec- 
c\ ordof Dlocfc. ,. 



ADDR-1 = ? 



ADDR-2 



ADDR-N 



Calculate location 
of origin of next 
record storage area 




High End of 
Core 



1 1st table of CF 
ords - 1st I 



L words - 1st rec- 
. ord of block 



\ 2nd table of CF 
.words - 1st record 

afJblflsk 



Ind table of Ct 



Ea'bje of „ 
. -«_r words - Last 
\ecord of block 



■^"Control field ' 



J write tab: 

1 1 I 



u 



/write tab 



ABLE 

// 



CORD STORAGE 

w r\ \ 





JL 



L 



t 



^Cell CNT8 

Save calculated 
location of origin 
of next record stor- 



)p age Biea 



(A DDR, 2) 



1Rk2 Pointer 




a = if of words in control fields of record 
b *= Output blocking** of records per block 
c= Merge blocking=# of words per block 



5. 01. 03 




Form a command 
at follows: 

lOCP 0, 0, RL 



Store the above in 
8 11 cells of both 
write tables 



EL1& save in sddr 
of cell DEPLT. PlaC< 
a 1 In decrement 
of cell DEPLT 



place output record 
length into cell 
DEPCEL decrement 



Extract & save no. 
of wds 1st cont. 
field extends over 



(ERAPR-S) 



Cell CFINFO-1 

FM401 




algebraic 

' FM402 — \ 

Move count of re- 
cords deleted frorr 
*hls phase status 
(CNTPR-9) to in- 
ternal sort phase 
status (CNTPR-8) 



^xtrpct number of 1 
words in sill cont. 

fields of a record & 
Save in associated 

instruction 



I ncrease count of 
words in 1st cont. 
field by 1 
(ERAPR-S) 



Extract merge order 
(MORDER) & sav« 
in associated in- 
structions 



Extract number of 
merge areas (CKT6J) 
& save in associated 
instructions 




5.01.04 



S. 01. 04 



FM+ 2 




FMM01 






Perform FMM01 
Modification 



FMA12 



/Save locs-\ 
/tion counter \ 
v for tracing > 
(GENPR-4V/ 

A 



Set up open routine 
calling sequence wd 
(RWCSJ decrement 
to specify next file 
to be opened 



Plpce file number 
into internal lpbel 
file number word 
in storage 



SOP 



Open routine - 
Open specified 
Input file 




Set open routine 
calling sequence wd, 
{RWCS) minus to 
Indicate opening 
of "output"file* 



SOP 



Open output file 




S. 01. 05 



S. 01. OS 




Spve number of 
file to be read 

(FMT2) 



Set up first word 
(RWCS) of IO rou- 
tine calling sequenci 

s, i ,, a d oll ( 'irBe A c d rm d 

Ho. (lj 



ir 



Set up second word 
(RWCS1) of IO rou- 
tine calling' seq- 
uence as follows! 
Adr = Origin of rec- 



Adr = Ong 



;e area tor 



OBS 



IO routine - Per- 
form initial read 
of 1st file 



Save loca- 
'tlon counter 
for tracing 
/GENPR-4) 




FMA1 




5. 01. 37 



Move number of 
file read from'pre- 
sently read" status 
(FMT2) to previous- 
ly read status (FMT1 



Determine number 
of next file to be 
read and plrce in 
"presently read" 
status (FMT2) 




5.01.06 




FMA4 

justify 1st wd. 
decrement (RWCS) 
of IO caTIing seq- 
uence to specify 
next file to be rep d 



IOBS 



Modify 2nd wd. 

iddress (RWCS1) of 

IO calling sequenci 
to origin 01 record 
storage area assoc. 
with Tile to be read 



H,- Save loca\ 
ion counter \ 
for tracing )— ^ 
GRNPR-4) / 



=1 



IO routine per 
form initial read fit 
specified file I 



Furn on 
sense lite 



1 



NOTEi Indicates that initial read of all files has been performed 



FMA3 



Extract number o:f 
words read from 
"previous" file G 

iave (CNT90) 



I 



NOTEi The location of the origin -1 of the appropriate record storage area 
contains the word count. This is accomplished by the I/O routine. 



Calculate number 
of records read G 



Save 



(CNT9) 



I 



Compute total nwiibe^ 
>f records read to 
date G save 



(CNTR) 



I 



Set up area word 
(ARWD, 1) for fill 

FoT&te'l 

records re a q Dec 



a* 
of 
_ec - 
read 



I 



IR1 - Pointer (File #) 



Set up "1st record of 
file" word (FLWD, 1) 
as follows: Adr ■ 
Address of origin of 



IR1 » Pointer (File #) 



TO 



ot tilfi" wore 
as follows: A 
Address of origin of 
last record in record 
storage area Dec « 
Filef 



; i IR1 * Pointer (File #) 




5. 01. 07 




5.01.07 



Turn off 
sense lite 
1 



S.01.05 
NOTEi This is result of previous test. 




Cell MODPR-16 

"Modification^ / Yl 
FMM02 specified 



FMM02 



Yes 




ixtract riunfSer oT~ 



input files to final 
merge phase(MOKDj') 
6 Save in assoc. 

cells & instructions 



QXffi. 



I 



Specialize cell 
•RCWD" used for 
:ommuni cation wlrih 
the "extract" rou- 
tine 



NOTE: This cell will be used Indirectly by "extract" to determine the 
location within the record storage areas of the record containing 
the control fields to be extracted. 




'on file to be proce- 
ssed 



No 



"Set up "extract" 
filing sequence wd. 
& assoc. cell of last 
record control field 
word tabic (LCFWD. 
2) as follow*: A«r = 
Orhrln of r>rc3 ex- 
ti'P'-i'-'i Cl's are to 
liivxtorea in Dec » 
-ilU«JL_ 

/S?v*T6c"5\ 

/tion counters. 

/for tracing \ 

VGENPR-4) / 



XTR 



I 



4.02.01 



Extract control 
fields of last rec- 
ord of block of 

specified file 



I 



Prepare to 
process next file 



r feppfe to extract 
control fields of 
last record of block 

of next sequential 
file 




Input 
erg e order 



5.01.08 



QRST 




FM125 



Cell MORD1 (merge order AFTER Initial read) 



ave JOCa- 
tion counter 
for tracing 

(GENPRM) 




Setup "MRL" cpIT 
ing sequence word 



MRL 



i n? m 



Routine to sort cont. 
fields at beginning 
of each ppss or at 
each sequence breaft 



NOTEt Sort control fields: 
of list records of 
all file 



PJpce read indtcatio: i 
(I) TnlO routine 
calling sequence: 
word 1 (RWCS) 



Determine file num 
ber assoc. with 
lowest file in sea. i, 
established by'MR| 
sort routine 



NOTEi This file will be the 

next to have a block read 



Specialize IO routine 
calling sequence 

wordl (RWCS) with 

this file number & 
also save in'present 

jjgyile #•• cell 



•tailing with 1st urea 
wd "(ARWD) cell, 
check next cell for 

the availability of 
the bssoc. record 

foir nex : 




NOTEi There is one "ARWD" call assoc. with each record 
storage area. If Khe area is in use Its "ARWD" will 
contain the number of records read. As a result the 
"ARWD" will be non-zero. 



PROUT 



FMER1 
MWR 



Print routine - 
Print message 



Print routine Print 
Error Message 



ind location of orl- 
gin of available 
ecord storage area & 
store in 2nd wd. of 

IO calling 
sequence (RWCS 1) 



Error 1 



use A 



Logical error 
cannot continue 
press start 
to restart 



Pause 



Print G Halt 



RESTA 



Save area number in 
presently" read cell 
(FMT2) 




rJe_ 



Operator 
Action pause 



Restart Routine 



5.01.09 



5.01.09 




Save loca- 
' tlon counter 
k for tracing 
' iGENPR-4| 



IOBS. 



lO Routine - 

Read next block of 
specified file 



i. 



Output file block wd. 3 



Type of 
"padding specified 





Divide no. of records 
output from merge 
phase by final output 
dock length to det- 
ermine length of 
partial block if any 




Determine no. of 
padding records req- 
uired 6 save 

(LPDCT) 



FM96 



X 



[tore the address 
IOPAD) of the low 
>adding record into 

successive tags of 

write tableTTWRTBl) 
until count of paddinj 
records reauiredflPDC 
T) is justified ^ 



Update count of 
i ecords to be written 

WRCT) 



Cell 
jrfrfODPR-IV 



FMM03 




QXTR 



Specialize cell 
•RCWD" used for 
i lommunicatiori with 
the "extract" routine 



NOTE: This cell will be used indirectly by "estract" 
to determine the location within the record 
storage areas of the record containing the control 
fields to be extracted. 




set up "extract 11 " calling 
seq. wd, & essoc. cell 
of 1st record cont. field 
wd. table (CFWD, 2) a s 
follows: Aar=Origln of 
area extracted CF's an 
to be stored in Dec= 
LElle » . 



Prepare to process 
next file 



XTR 



Input merge 
order 



/?We loi 
/tion coun 
dor tracing 
\GENPR-4) 




4.02.01 



Extract control 
fields of 1st record 
of block of specified 

file 



Prepare to extract 

control fields of 1st 
rfecord of block of 
next sequential file 




5.01.10 




Cell MORD3 (Current merge order) 



Save loca- 
tion counter 
for itracing 

(GENPR-4V 






Set up "MRL" 
calling sequence wd 



MRL 
14.03. or 



Routine to sort 
control fields at 
beginning of.each 
jpSS or at each seq. 
break 



FM102 



Extract the location 



within the record 
storage area of ori- 
assoc. 
oweat con 



storage are; 

gin of record 

with the lo\ 



Cell CKSIND 




M 



NOTEt Sort control 

fields of first record 
of pll files 



FM101 

Initio 

check cell(FLCK)by 
setting to zero 



liie sequence 
■LC 



T 



<D 



FM105 

Move all wdg. Of tfl 
cont. fields of 1st 

record of lowest file 
as a result of sorting 
operation to "cont, 
IfcTd for seq, .check" 

area (FMSC v ) 



i(S«e chert on 5. 01. Q2| 



Perform modifica- 
tion 



O 



Place address p:C 
*cord assoc. with 

lowest control field 
into next unspecigli- 
zed tag of write table 



FM1P6- 



5T 

ate Ip 



(See chart on 5. 01. 02) 



Calculate location 
of origin of next re 
cord within the "rec 
ord storage area" 
assoc. with C.F. 
moved £ save 
(FLWD, 1) 



I 



IRl=File number 



dpte count oi re- 
. — irds remaining , 
in the record storage 



n the record storage . 
irea" by -1 (ARWD,:) 




5.01.11 



5.01.11 





FMMOS 
I 



•erform modification 



FM25 



Yes 



Set sssoc. area wd. 
(ARWD, 2) minus 
to indicate this con- 
dition 



FM29— 
PROHT 




Cell MODPR-19 



FMER1 
MWR 




RESTAR 



Print routine 
Print error message 



Print Routine 
Print: Error Message 



Print and Stop 



"J/ 



> Restart Routine 



Increase count of 
records ready to be 
written by 1 

(WRCT) 



Error 2 




Logical error 
cannot con- 
tinue press 
start to re- 
start 



\ 



Operator 
Action pause 
. , .Action 
Completed 



FMM10 



Specialize Calling 
seq. wd. of extract 
routine withlocatiot 
of extracted CI ? rea 
to be used 



Extract control 
I fields of specified 

record 



FMLOOP 

''modification 
FMM10 specified 



tfcell MODPR-24 
No 





S. 01. 12 




, _sve 1ocb-\ 
/tion counter 
' for tracing 

(GENPR-4) 



Cell MORD3 




FMO 



Initialize Instructions 
that may hpve been 

alterea by previous 
pass through routine 

(FMSW1) 



FM1 



Initialize Instruction i 
that m»y have beei 
altered by previous 
pass through routine 

(FMSW3. 2. 1) 



initialize instrucnoiS 
that may have been 
altered by previous 
puss through routine 
fMRSW7, 6, 5, 4, 3, 

2,1) 





S.01.13 



S.01.13 



5.01.14 



5. 01. 15 



5. 01. 16 



5.01.18 



5. 01. 22 



5.01.13 



FCP3 



FCP4 




5.01.24 



FM3 



(h\ (3 way) 

I 



Limit routine 
to a 3 way 
merge 



FCP3 




Detail (Pg. 5. 01. 23) 



/7*Nw»y) 



/ 



Detail (Pg 5. 01. 23) 



/FCP2 
\ 




S.XSl". 24 



5.01.24 



NOTEi 

1. Refer to detniled flow chart (5. 01. 23) for 
•tequal" conditions and additional facts. 

2. y ~ Accumulator content greater thi>n storage 

3. <_ = Accumulator content smaller th;«n storage 



FM6 




5.01.14 



Limit routine 
to a 6 way 
merge 



Detail (Pg 5. 01. 23) 




© 



1. Refer to detailed flow chart (S. 01. 23) for "equal" 
conditions and additional facts 

2. > = Accumulator content greater than storage 

3. K - Accumulator content smaller than storage 



(5 way) 



FM5 



k 



Limit routine 
to a 5 way mergi : 




Detail (Pg 5. 01. 23) 



FCP3 



FCP4 





S.01. 24 



5 01 15 




/ 

FCP5 



Detail (Pg 5.01.23) 



■N 



y 



\ YK - V V 



FCP3 




FCP4 i 

< <>> 1 




FCP8 



FM7 




1. Refer to detailed flow chart (5. 01: 23) for 
"equal" conditions and additional facts 

2. > = Accumulator content greater than storage 

3. C =■ Accumulator content smaller than storage 



Limit routine to 
a 7 way merge 



/ 

/FCP5 



V 



Detail (Pg. 5.01.23) 



<§>-&i 




5.01.24 




S.01.16 



FM10 



Limit Routine 
to a 10 way merg e 



Detail (Pg. 5.01.23) 



KCP9 



FCPlOjU 








1. Refer to detailed flow chart (5. 01. 23) for 
"equal" conditions and additional facts 

2. > = Accumulator content greater than storage 

3. <, = Accumulator content smaller than storage 



( 9 way) 



FM9 



Jl 



Limit routine 
to a 9 way merie 



Detail (Pg. 5.01.23) 



FCP9 




FCP3 



FCP4 




%~ 



X- 



%- 



5.01. 24 



FM11 




Limit Routine 
to an 11 way 
merge 



FCP9 



5.01.24 



Detail (Pg. 5.01.23) 




NOTE: 

1. Refer to detailed flow chart (5. 01. 23) for 

"equal" conditions and additional facts 

2. > = Accumulator content greater than storage 

3. ^ = Accumulator content smaller than storage 



C 



FM12 




Limit routine 
to a 12 way 
merge 



FCP9 



5 01.24 



Detail (Pg. 5.01.23) 




NOTE 



1. Refer to detailed flow chart (5. 01. 23) for 

"equal" conditions and additional facts 

2. * = Accumulator content gTeater than storage 

3. <, = Accumulator content smaller than storage 



en 

o 



FM13 




Limit routine 
to a 13 way 
merge 



5. 01. 24 



Detail (Pg. 5.01.23) 



NOTE: 

1. Refer to detailed flow chart (5. 0L 23) for 

"equal" conditions and additional facts 

2. ? = Accumulator content greater than storage 

3. < = Accumulator content smaller than storage 



© © 




fCP2 l 



© 
to 



FM14 




Limit routine 
to a 14 way 
merge 



rCFy 



FCP13 



Detail (Pg 5. 01. 23) 




NOTE: 



5,01-24 



L Refer to detailed flow chart (S. 01. 23) for 
"equal" conditions and additional facts 

2. ^Accumulator content greater than storage 

3. <•. Accumulator content smaller than storage 



en 

o 



O 




FM15 j 



Limit Routine 
:o a IS way 

merge 



FCP9 JT 

<>■<£> 

FCP13 V 



FCP15 



FCP11 






FCP10 jr 




5.01.24 



Detail (Pg. 5.01.23) 





FCP4J^ 

- Tl) 



w 






NOTE: 



1. Refer to detailed flow chart (5. 01. 23) for 
"equal" conditions and additional facts 

2. S = Accumulator content greater than storage 

3. £ = Accumulator content smaller than storage 



V 



FCP9 



FCP13 



FCP1S 




Detail (Pg. 5.01.23) 



FCP16 



FCP11 




FCP12 I 



i 1, — iu. t Jfe 





a. ui. iJ4 



NOTE: 



1. Refer to detailed flow chart (5. 01. 23) for 
"equal" conditions and additional facts 

2. < — Accumulator content greater than storage 

3. C = Accumulator content smaller than storage 



O 



to 




5.01.23 



CP(X) 



Prepare to compare 
1st wd. of 1st cont. 
field of new record o: 
file(Kl) assoc. with 
cont. field in seq. , 
check area to that of 
next selected file 
nrhfT) 



DETAIL OF COMPARE OPERATIONS 
(Refer to pages 5. 01. 13 - 5. 01. 22) 

NOTE: The location of the previous record of file 

represented by control field in sequence check 
area has been placed in write table, therefore, 
its next record must be merged. 




Cell CPD4D 



NOTE: = Logical ascending 

1 = Logical descending 

2 = Algebraic ascending 

3 = Algebraic descending 



Perform logical as- 
cending compare 



k 



~s 



~i 



Perform logical 
descending compare 



Perform, algebraic 
ascending compare 



ll^eriorm aigeDraic 
descending 



AC=K1 



AC=Other I V=K1 




S.01.24 




F MXCL 



Modify existing seq. 
placing the file re- 
presented by C.F. li 
iequence check area 




Set sequence check 
(FIjCK) cellnon- 



rero 



Cell CPIND 




NOTE) Comparing to see If next low record will fall into output sequence 



NOTE: * Logical ascending 

1 = Logical descending 

2 • Algebraic ascending 

3 ■ Algebraic descending 



FMSCPA 
FMSCPB 



FMSCPA 
FMSCPB- 1 



^ 



1 



FMSCPA- 2 
FMSCPB- 2 



Perform logical 
ascending compare 



\CC=K1 Y=FMSC 



1 Perform logical 
descending compare 



ACC=FMSC Y=K1 



I 



FMSCPA- 3 
FMSCPB- 3 



Perform algebraic 
ascending compare 



ACC=K1 Y=FMSC 



I 



I 



Perform algebraic 
descending compari 

ACC=FMSC ACC=» 1 



NOTEi ACC=Accumulatorj Y <* Storage 





S.01.2S 



5.01.25 




Equals routine - 
Compare other wds. 
of this 6 other cntr. 



'CV I ^-& 




Operator 
Action pause 
. . .Action 
Completed 



Print & Ha,lt 




5.01.10 



5.01.26 



Cell WRIND 




Clear out extractec 
area word cell 

(ARWD, 1) 



Make extracted area 

word cell < ARWD, I 

prefix equal to -1 



Form 1/6 calling 
seq. wd.2(RWC!»l) 
as follows: Dec=# of 

logical records to 

be written(WRCT) 
ODR-Qrigin of write 
Hag-tabl«-« 1 



save loca-\ 
'tion counter 
for tracing 
<GENPR-4) 



IOBS 



5.01. 11 



I/O Routine write 
Block 



Update count of all 
records written to 
include last outpute d_ 
block 

(CNTW) 



Reset write count 
(WRCT) cell to zero 
in preparation for 
next write 



I nte rchangc wri te 
tag tables in prep. 

i for next write 
(WRTB1, WRTB2 




5.01.27 



Cell RDIND 




5.01.37 



Move # of file read 

from "presently 
read" status(MRT2) 
to "previously lead" 
status (MRT1) 



Kxtract number oT 
words read 6 save 

(CNT90) 



SrSuTHWrSf 
records read & save 
(CNT9) 



NOTEi The location of the origin -1 of the appropriate record 

storage area contains the word count. This is accomplished 
by the I/O routine 



MOTE: ThU cell (CNT9) will be minus If this is the start of a new sequence. 




Cell CNT9 (Sign) 



Yes 




Logical error 
cannot continue 
press start to 
restart 



FMER1 f^ J 

MWR / 



(ARWL 



yet up area word" 
D, 1) for file 



previously read as 
follows: Adr =# of 
records read Dec-# 
of records read 



(IRl=File No. ) 
Extract location of 
record storage area 
origin containing 
block read 




FM 
28 



5.01.28 



S.01.28 



Cell RFWD2, 1 



FM229 
PROUT 




Error 3 




MRER1 
MWR 



Logical error, 
cannot continue 
press start to 

restart 



Operator 
action pause 

. . .Action 
Completed 



Store location of ru 

o 1 ! m% 



cordlinto.c 
ve table 1 
assoc. with the file 
(RFWDl.l) 



11 



E 



Set dec. of this re 
serve table wd. 
equal to record 
storage area number 

(RFWD1, 1) 



M22S 



Determine location 
of 1st wd. of last 
rec. within record 

storage area of this 
block C save (RLWD 

1-1) 



Jiet dec. oT'thTs ' 
table wd. (RLWI)l, 
11 equal to record 
storage area number 



Store location of 
origin of last rec. 
read into cell of 
current last wd. tablfc 
assoc. with the file 
(LLWD.l) 



Print Routine - 
Print Error message 



Print Routine 
Print Error message 



Store location of 
rec. storage area ori - 
gin (location of 1st 
wd. of 1st rec. into 
cell of reserve table 




Set dec. of this re- 
serve table wd, 
equal to record stor- 
age area number 

(RFWD2, 1) 



' Specialize cell 
RCWD" used for 
communication witji 

the "extract" rait' 

tine 



NOTEi This cell will be used Indirectly 

by "extract" to determine the location 
within the record storage areas of the 
record containing the control fields to 
be extracted. 



Set up "extract" 
calling sequence as 
follows AdrOrigin 

of area extracted 
C.F. 's are to be 

stored in,Dec=File 



Save ioca 



' tion counte: 

ic - '■- - 



for tracing 
(GENPR-4) 



te\ 



7 



XTR 

3.62.01 



Extract control field 
\ of last record of 

/ ^ block of specified 

file 



-. J 29 j 
5.01.29 



5.01.29 




Cell MORL3 (Merge order for priority read) 



MEL_ 



ave loca- 
on counter 
for tracing 

(GENPR-4) 




Set up "MRL" 
calling sequence 
word 



»-"2-0' 



loutine to sort cont. 
fields at beginning 
of each pass or at 
each seq. break 



CellMODPR-22 



Place read indica- 
tion (1) in IO routines 
calling sequence w<l 
t l (RWCS) 




NOTE: Sort control 
fields of last records 
of all files 



FMM08 



Perform modlficatio 



I 



Determine file # 
with lowest 



flshe^'MR^' 
sor t routine 



ib- 



I 



NOTE: This file will be the next to have 
a block read. 



ipecialize IO routine 
calling seq. wd. 1 
[RWCSlwith this: 

file # & also save in 



Starting with 1st 



arc^wd. 



checR next; ceil 
for the availability 
of the assoc. rec. 
storage area for next 
input operation 



Cell ARWD, 2 



NOTE: There is one "ARWD" cell associated 

with each record storage area". If the area 
is in use its "ARWD" will contain the number of 
records read. As a result the "ARWD" will be non- 
zero 




PROUT 



Print routine- 
Print message 



FMER1 
MWR 



Print routine 
Print error message 



Find location of 
origin of available 
record storage area 
G store in 2nd wd. 
of IO calling seq, 
(RWCS1) 



I 



Error 4 



>AUSE_ 

Basic routine 



I 



Logical error 
cannot contin 
ue press start 
to restart 



Print & Halt 



RESTART! 



Operator 

Action pause 
. , Action 
Completed 



Save area number ir 
"present read file ff" 
Cell FMT2 



L 



T 



JOBS. 



Restart routine 



save loca 
ion counter 
(for tracing 



(GENPR-4)/ 



I/O routine 

Read next block of 

specified file 



_jj FM 1 
"M 11-R J 



5.01.11 



5.01.30 



CellMODPR-20 

FMM06 




Perform Modifica- 
tion 



Reduce # of files 
eft for merge by 1 
(MORD3) 



Remove this 



Clear cell of curr- 
2 nt table (FLWD, 1) 

associated with 
this file 




_ __iFliiS I 

from &ihpn update 
cont. field wa. ! 

table for 1st records 
(CFWD.4) 




Cell MORD3(current 
S* merge order) 




FM 
31 



5.01.31 



PAUSE 



RESTAR 



Is 

- .he next block thi. 

v start of a new string 

' sequence) 



IjMc 
dlove location oi~ 



Print Error Message 



Print and Halt 



Restart Routine 



SX record of this file 
:rom 1st level reserve 
table (RFWD1, 1) to 
current table (FI.WD 
1) 



tell RFWD2, 1 



Logical 
error cannot 
continue press 
start to restart 



Operator 
action pause 

. .Action 
Completed 



m 



^ Does 

cell of reservE\^ Yes 



2 assoc. with 
j indicate mat aj 
additional bios" 



FM377 



Clear reserve tsioie 
1 (RFWD1, 1) cell 
assoc. with this file 




Vlove content oi 
cell of reserve table 

2 (RFWD2, 1) to assoc 
cell of reserve table 

1 (RFWD1.1) 



Clear reserve table 
2 cell (RFWD2, 1) 

assoc. with this 
file 



5.01.31 




Store # of high 
padding records re- 
quired to complete 

last block in cell 

HPDCT 



T 



Store the address 
(HIPAD) of the higr 
padding record into 
remaining unspecial- 
lzed tags, of write 

table 



Update count of 
records to be written 

(WRCT) 




,Yes 

T5eTTO~caIring~secf'" 
word l(RWCS) minu 
to indicate a write 

operation is to be 
performed 




S.01.32 



5.01.32 



O 




7 orm I/O calling seq 
word 2 (RWCS1) as 
follows: Dec=# of 
logical records to be 
writteri(WRCT) Adr= 
Origin of write t a ble 



OBS 




I/O routine Write 
Block 



I 



FWS 



Jpdate count of all 
records written to 
include last outputec 
dock 

(CNTW) 



Save count of record 
written tins phase 
(CNTW) in common 
(CNTPR-2) 



I 



CNTPR=Count Parameters 



Extract dumped rec- 
ords count for final 

merge phase 

(KMDCT)) 



Store loca- 
lon counter 
(for tracing 

(GENPR-4), 



BTD 



"OS70T 



T 



Convert count of 
records dumped 
(FMDCT) to BCD 



I 



MWR 



Records 
dumped this 
pass 

xxxxx 



Store result in 
Message 







Print Message 








01. 33 



5.01.33 




Cell WDIND 



Set close routine 
calling seq. wds. 
(RWCSGRWCS1) as 
follows: Prefix - 
MZE 



s 



'"Save location 
'counter for 
^tracing 

(CENPR-4J 



SCL 



i 



Close Routine - 
Close output file 




Cell RD1ND 



Set close routine 
calling seq. wd. 
(RWCS) as follows: 
1. Dec.=File # 
2. Remainder zero 



T 



/Save loca- 
tion counter 
(for tracing 

(CENPR-4), 



SCL 



Close routine - 
Close next input 
file 




5. 01. 34 



5.01.34 




"Extract count of — 
records written this 
phase (CNTW) 



BTD 



I 



4.06.01 



Convert Record 
Count (CNTW) to 
BCD 



Store converted 
count into message 




Merge com- 
pleted final 
record count 
xxxxxxxxxxxx 



FM511 



MWR 



/ 



Print Message 



FM501 



MWR 



Store converted 
count into message 



Print Message 



Sort/Merge 
Completed 
Final record 
count xxxxxx ; 
xxxxx 



Store converted 
record count into 
message 



MWR 




Sort comple- 
ted. Final re 
cord count 

XXXXXXXXXXX2 



FM5I2 



Extract count 



of low padding re- 
cords used 

(LPDCT) 



m 



ISTDT 



t 



Convert low padding 
:ount to BCD 



I 



Store converted 
count into message 

(FMES204) 




5.01.35 




Extract count of j 
high padding record^ 
used (HPDCT) 



£TD 



OToT 



Convert high paddinjg 
count to BCD 



Store converted 
count into message 

(FMES3&4) 




including low 
padding 
xxxxxx 
High padding 
xxxxxx 







5.01.36 




NO 



FMXELL 



Yes 



FM22 
MWR 



Record counts do 

not agree set sign 
key up to restart, 
press start set sign 

key down to cont. 

pre: 




Print Routine - 
Print Error Message 



PAUSE 



Jl 



Print G Stop 



\ 



\ 



Operator 
action pause 

. . . action 
completed 



No 



Restore index regi- 
ster 4 



T 




EESTAR 



Restart Routine 



Return to Sort: Monitor 

via 3, 4 



5.01.37 



FMEF1 




Reset end of file 
indicator 

(RDIND1) 



I 



Decrement count 
of input files by 1 

(MORD1) 



FMEF7 




FMEF2 



© 



Reset end of file 
indicator 

(RD1ND1) 




Cell MORL3(Merge order for priority read) 



Yes J FM \ 



5.01.11 



Decrement number 
of files left for 
reading (MORL3) 
by 1 



'£ 



Clear last record 
reserve table cell 

(RLWD1, 4) for file 
assoc. with EOF to 
indicate tliis condi- 
tion 



Remove this file 
from £ then update 
jontrol field word 
table for last records 
(LCFWD, 1) 








ETPl 



Reset end of tape 
indicator 
(WRIND1) 



I 



Setup close routine 
calling seq. wds. as 
follows: RWCS=MZ1 
RWCSl^Zero 



Save loca- 
tion counter 

^for tracing 

(GENPR-4V 



SCL 



1 



Close this reel 




Celll NOCKPT 



CKPT 



Write checkpoint 



Sense switch 2 




MWR 


X Yes 




Print Message 


P&USJL. 


J __ 


Print and Halt 



Sort is in- 
terrupted pleaie 

r^b a eYt^m S 
accordingly 
for restart 



01.29 




Operator 
Action pause 

. . . .Action 
Completed 



5.01.26 



5.01.38 



CKS 
CKSA 



1 



Compute checksum 
of record associated 
ivith control field 

in sequence check 

area 



Dumped a 
logical recort 
of wrong chec : 



CKSB 




CKSC 



DEBIK 



Save loca- 
tion counter 
for tracing 




CVPRT / 



Print routine- 
Print Error message 



at c 



Increment count ot 
dumped records by 
1 

(FMDCT) 



5.01.10 



I 



Decrement count 
of records written 
byl 

(WRCT) 




5.01.39 



f FM \ 

FMDEL -y 

Store location of 
origin of record asto : 
with cont. fields 
in "seq. che£k area' 



I 



r Save loca-\ 
''tion counter \ 
for tracing \ 
JGENPR-4)/ 



DEI£TE 



i 



delete routine deter- 
mine if record is 
to be deleted 



Cell DEPCEL 





FM 
10-D 



5.01.10 



Store output record 
'. ength into delete 
cell DEPCEL 



I 



Reduce count of 
records to be 
written by 1 

(WRCT) 




post processor - " 
Wrap up routine for 
7090 Sort 



6.01.01 



OBJECTIVES 
1. Prints 

A. 



POST 




Save index register 
4 for return 

(POST4) 



2. 
3. 



Count of input records to sort or merge 

B. Count of records sorted or merged 

C. Count of records dumped 

D. Count of records deleted 

E. Count of high padding records in final output 

or 

F. Count of low padding records in final output 
Assigns pll intersystem tapes 

Releases all other tapes assigned for sorting 



START 
(PROUT 




Phase 1 
Phase 2 
Phase 3 



Extract count of 
total input recoi'ds 
to sort & merge 

(CNTPR-14) 




Save loca-\ 
tion counter 
for tracing 

(CENPR-4) 



/ 



> 



(P ROUT 



Print message in- 
volving converted 
count 




Count of in- 
put records to 
sort and/or 
merge xxxxx 
xxxx N/A 

N/A ^- 



6.01.02 



6.01.02 




Extract count ol 



records sorted in 
Phase 1 

(CNTPR) 



I 



'Save loca-\ 

tion counter\ 

for tracing / 

(CENPR-4/ 



BTD 



T 



Convert it to BCD: 

(yyyyyyyyyyyy) 



:f ct 



Extracf count of 
records merged in 
Phase 2 

rCNTPR-1) 



Save Iocs 
tion iounter 1 
k for tracing 
lfCENPR-4) 



,BTD 



L 

Convert i 



t to BCD 



(xxxxxxxxxxxx) 



Extract cttunt of" 
records merged in 
Phase 3 

(CNTPR- 2) 



Save loca- 
tion counter 
. for tracing 
v (GENPR-4) 



BTD 



Convert it to BCD 



(zzzzzzzzzzzz) 



I 



Count of re- 
cords sorted 
or merged 

(yyyyyyyyyyyy 

(xxxxxxxxx: 




pve loco- 
/tion counter\ 
'for tracing 

(GENPR-4), 



PROUT 



Print message in- 
volving connected 

counts 



f Post \ 



6.01.03 



6.01.03 



f Post \ 



1 



Extract count of 
records dumped in 
Phase 1 

fCNTRR-3) 



i 



>iive ioca-\ 
tion counteV 
'for tracing >^ 




Extract count of 
records dumped in 
Phase 2 

(CNTPR-4) 



I 



Save loca- 
' tion counter 
for tracing 

v(GENPR-4) 



\ 



BTD 



Convert it to BCD 



Extract count OI 
records dumped in 
phase 3 (CNTPR-5) 



(xxxxxxxxxxxx) 



(yyyyyyyyyyyy) 



t 'riii iv/ jti'rr\ 



Save locn-> 
' tion counter 
for tracing 



(GENPR-4) 




i PROUT 



Count of re- 
cords dumpe I 
(xxxxxxxxxxx 

; x > 

(yyyyyyyywy 



Print message m- 
volving (converted 

data 



( Post \ 

-n 4 ) 






6.01.04 



6.01.04 




Extract count of 
records deleted 

(CNTPR-8) 



1 



fSpve loca- 

' tion counter ' 

for tracing 

(GENPR- 



BTD 



I 



Convert it to BCD 



(xxxxxxxxxxxx) 



I 



>ave loca- 
tion counter ' 
^for tracing 

UCENPR-4), 



( PROUT 



Print message in- 
volving connected 
count 



Extract count of 
high padding re- 
cords-Final merge 



(CNTPR-11) 



i 



Save lo- 
cation co- 
( unter for trac- 
\ing 

/CENPR-41 



Count of re- 
cords deleter 
xxxxxxxxxxx 

X 

N/A 



BTD 



Convert it to BCD 



( XXXXXXXXXXXX ) 



'Save loca- 

' tion counter 

^for tracing 

v (CENPR-4) 



( PROUT 



Print message in- 
volving converted 
count 



Count of high 
padding re- 
cords in out- 
put N/A N/A 



(xxxxx 
xxxx) 




6.01.05 



6.01.05 




Convert it to BCD 



(xxxxxxxxxxxx) 



' > 

/ibtive Jo- 
:ation count 
for tracing 

(GENPR-4) 



(PROUT 1 



Print messageTn^™ 
volving converted 



count 



Count of low 



padding re- 
cords in out- 
put N/A 
N/A (xxxxxx 
xxxxxx] 



.Cell CHAPR-4 




Det. location ot 
unit cont. block 
assoc. with unit to 
be used for inter- 
system com muni c ei 
tion 



'stem 
ion 
& Stprei 
unit cont. block 
word 1 address 



tract, intersys tern 

gical designatioi 
f unit b store in 



Place a bit in 
position 3 of unit 
cont. block word 1 
to indicate that the 
unit is reserved for 
intersystem use. 



NONAS 



Determine # of 
tapes assoc. with 
merge channels 

save (CHAPR-2 6 
CHAPR-3 decre- 
ments) 



T 



Fprm-" re lease" rou- 
tine calling seq. 
wd. as follows: /vd:r 
>f unit 
;t nierge 





6.01.06 




r Snve loca- 
tion countef 
L for tracing 
.(CENFR-4) 



REIEAS 



i 



Pl(ic« SjHetified 
units buck into 

unit availability 

■ f.luin 



Torm"reie?isS ,r "rStF : ~ 
tine Calling seq. wd 
$ followsrAdr^Lo- 
ation of unit table 



Cfi 

o 
Doc 



zc-ft of unit 



PR" 3): 



i 



Save Iocs 
tion counter , 
^for tracing 

(CENPR-4) 



RELEAS 



i 



Place specified 
units back into unit 
availability chain 



1 



l'orm"release 

tine calling sen. wd 
as follows: Adr=Lo- 
c a tion of unit table 

of input unitfs) 
(CHAPR* rw 1 * J 

of units 



Dec^# 



I 



Ta've lo 
^cation counts 
for tracing 

(GENPR-41 



RELETS 



1 



Place specified 

units back into unit 

availability chain 




6.01.07 



6.01.07 




" Ves 



Cell CHAPR-1 



Cell CHAPR-4 



Det. # of .tapes 
assoc. with Output 
channel & spve 

(CHAPR-1 decre- 
ment) 



I 



rorm" re lease" rou- 
tine culling seq. wd 
as follows: Adr=-Loo= 
prion of unit table 



£ 



Save locp 
'tion counter 
^for tracing 

(GENPR- 4\ 



RE LEAS 



1 



Place specified 
units back into 
availability chain 



-TOT 

POST4 t 



Restore index 
register 4 



^Save loca-\ 
tion ctr. for 
tracing 

(GENPR- 4 



Return 



\y 



to Sort Monitor 
via 
3,4 



